www.5129.net > vBA读取ExCEl文件内容

vBA读取ExCEl文件内容

Sub AAA() Dim FilePath As String '要读取的文件路径 Dim S1 As String '文档的内容 Dim S2 As String '提取到的内容 Dim Ar As Variant '用于保存最终结果 Dim L1 As Long '记录当前查找到的字符位置 FilePath = Application.GetSaveAsFilename

Sub s() Open ThisWorkbook.Path & "\a.txt" For Input As #1 k = 9 Do While Not EOF(1) Line Input #1, a a = Application.Trim(Replace(a, "--", " ")) Cells(k, 2).Resize(1, 3) = Split(a) k = k + 1 Loop Close #1End Sub

用commondialog可以解决选定打开.xls文件问题然后就是读取进去哈哈保存代码如下<br><br>'添加command控件一个msflexgrid控件一个<br>privatesubcommand1_click()<br>onerrorresumenext<br>dimfileaddasstring<br>commondialog1.

通过VBA中的函数sheets(!workbook.worksheet).select,就可以将当前的文件指针指向所选的工作薄中的指定工作表.参数说明:workbook为工作簿名即文件名worksheet为工作表名当文件指针设定好后,就可以对指定文件的指定工作表进行操作了.

这段代码是读取一个文件夹下的所有文件,也可以根据扩展名筛选其它格式的.'有了文件名,就是打开文件,获得每个文件的SHEET名字.然后写到你想要的地方 SubMacro1() DimmyDialogAsFileDialog,oFileAsObject,strNameAsString,

用Find方法即可:如在ABC.xls工作簿的Sheet1工作表中查找“ABCDE” set Rng=Workbooks("ABC.xls").sheet1.cell.Find("ABCD",,,2) 如果找到,Rng 就是找到的单元格,如果没找到.Rng为空值 Nothing

如果WORD中每一页都有文字和表格.可以在excel中选择要创建word应用程序后再打开要操作的文档,再提取word内容中表格部分内容;

dim mypath as string,svalue '定义变量 mypath="d:\excel.xls" '把路径赋值给一个字符串 Workbooks.Open Filename:=mypath '这句是打开文件 activeworkbook.visible=false '这句是隐藏文件 svalue=activeworkbook.sheets(1).range("a1").value

可以 dim wb as workbook , a& set wb = getobject("文件的全部路径") with wb for a = 1 to wb.sheets.count if sheets(a).name = " 4月份" then .sheets(1).range().copy thisworkbook activesheets.name = " 名称" ``` ``` end with 具体操作需要看数据而行了

Application.ScreenUpdating=False Workbooks.Open "测试.xls" '读取或写入数据的代码 Workbooks("测试.xls").Close SaveChanges:=True Application.ScreenUpdating=True

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com