⑴ Excel怎么用VBA打开所有xls文件
注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路回径定义给变量答 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook.Name Then Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*.xls文件 Loop Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 End Sub
⑵ vba读取excel文件数据
程序代编，欢迎联络。
⑶ 如何用vba读取多个excel文档的数据
通过VBA中的函数sheets(!workbook.worksheet).select，就可以将当前的文件指针指向所选的工作薄中的指定工作表。参数说明:workbook为工作簿名即文件名worksheet为工作表名当文件指针设定好后，就可以对指定文件的指定工作表进行操作了。
⑷ excel vba读取文本文件
Subs()OpenThisWorkbook.Path&"a.txt"ForInputAs#1k=9DoWhileNotEOF(1)LineInput#1,aa=Application.Trim(Replace(a,"–",""))Cells(k,2).Resize(1,3)=Split(a)k=k+1LoopClose#1EndSub
⑸ excel vba打开excel文件
不知道这样符不符合你的要求(一个打开，一个恢复显示回)：Sub 后台打开答() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\excel.xls" ActiveWindow.Visible = False Application.ScreenUpdating = TrueEnd SubSub 取消隐藏() Windows("excel.xls").Visible = TrueEnd Sub
⑹ vba 读取excel文件
建一个用户窗体，代码如下。＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Form_load()Dim a(1 To 1000) As String, b(1 To 1000) As String, c(1 To 1000) As String, i As Integer '……依次类推For i = 1 To 1000 '这两处的1000改成你的最大行号，足够大 a(i) = Sheet1.Cells(i, "a").Value b(i) = Sheet1.Cells(i, "b").Value c(i) = Sheet1.Cells(i, "c").ValueNextEnd Sub这样之后，a、b、c列的内容便存在a(),b(),c()数组中了。
⑺ 在VBA中，怎样打开或者调用另一个EXCEL文件
ThisWorkbook属性可以返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿，而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。 Private Sub Workbook_Open() Dim FN As String FN = ThisWorkbook.Path & "\报表.xls" If Len(Dir(FN)) = 0 Then MsgBox "找不到文件：" & vbCrLf & FN, vbExclamation, "错误" Else Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls" End If End Sub而要打开一个文件夹里所有的文件，就需要用到FileSystemObject 对象，下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例： Sub ShowAllXlsFile() Dim GetFile As String, GetPFN As String, GetExt As String Dim Fso, PF, AF, FN, i, j GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "请选择文件夹所在的任意一文件") If CStr(GetFile) <> "False" ThenSheets.Addi = 0j = 0Set Fso = CreateObject("Scripting.FileSystemObject")GetPF = Fso.GetParentFolderName(GetFile) & "\"Set PF = Fso.GetFolder(GetPF)Set AF = PF.FilesFor Each FN In AFj = j + 1GetExt = Fso.GetExtensionName(FN)If GetExt = "xls" Theni = i + 1Cells(i, 1) = FN.NameEnd IfNextMsgBox "总计所有类型文件" & j & "个！" & vbCrLf & "总计Excel文件" & i & "个！" ElseMsgBox "没有选择文件夹！" End If End Sub
⑻ EXCEL中用VBA读取另一个EXCEL文件中的数据
Application.ScreenUpdating=FalseWorkbooks.Open"测试.xls"'读取或写入数据的代码Workbooks("测试.xls").CloseSaveChanges:=TrueApplication.ScreenUpdating=True
⑼ 如何用VBA 读取excel所有数据
通过VBA中的函数sheets(!workbook.worksheet).select，就可以将当前的文件指针指向所选的工作薄中的指定工作表。参数说明:workbook为工作簿名即文件名worksheet为工作表名当文件指针设定好后，就可以对指定文件的指定工作表进行操作了。
⑽ vba怎么读取多个excel文件代码
Sub 按钮2_Click()Application.ScreenUpdating = FalseSet cnn = CreateObject("adodb.connection")[a2:l65536].ClearContentsh = 2f = Dir(ThisWorkbook.Path & "\*.xls?")Do While f > ""If f <> ThisWorkbook.Name Thencnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.Path & "" & fSql = "select * from [sheet1$A1:C1000]"Cells(h, 1).CopyFromRecordset cnn.Execute(Sql)h = Cells(Rows.Count, 1).End(xlUp).Row + 1cnn.CloseEnd Iff = DirLoopApplication.ScreenUpdating = TrueEnd Sub
未经允许不得转载：山九号 » vba读取excel文件|excel vba打开excel文件
