vbaexcelexcel文件|excel vba打开excel文件

A. vba怎样打开指定路径的excel文件

打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码：Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

B. 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

C. 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()数组中了。

D. VBA新建一个excel文件，并且这个excel里面含有5个sheet，如何操作

OptionExplicitSubtest1()DimwbAsWorkbookSetwb=Workbooks.AddWithwb.Worksheets.AddAfter:=wb.Worksheets(.Count),Count:=5-.CountEndWith'以下是可选代码'将新建的工作簿激活为当前窗口wb.Activate'将工作簿保存到D盘根目录，名字为newWorkbook.xlsx,格式为.xlsx格式（excel2007及以上版本默认格式）wb.SaveAs"D:ewWorkbook.xlsx",56EndSubSubtest2()'如果是从外部程序创建，如在word中执行操作，则需要先创建个excel对象。DimappExcelAsExcel.ApplicationDimwbAsWorkbookSetappExcel=CreateObject("Excel.Application")Setwb=appExcel.Workbooks.AddWithwb.Worksheets.AddAfter:=wb.Worksheets(.Count),Count:=5-.CountEndWithEndSub

E. VBA中如何打开一个文件夹内的所有EXCEL文件

注意 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

F. vba读取excel文件数据

程序代编，欢迎联络。

G. Excel中 vba 连接 excel文件

把这句删除，这是多余的constr.Execute sql 另外，在sql字符串中，From后面的指向应当是工作表而不是工作薄。工作薄已经在constr的定义中指向了

H. 如何用vba 打开一个excel文件 传到另一个excel文件中

Sub test() With Workbooks(“book1.xls”).Sheets(“sheet1”) r = .Range(“c65536”).End(xlUp).Row – 4 &#39从第2行到c列最后一个有数据的可见单元格向上3行的行数 Workbooks(“book2.xls”).Sheets(“sheet1”).Range(“c2”).Resize(r, 1).Value = .Range(“c2”).Resize(r, 1).Value &#39将book1.xls的sheet1中从c2开始r行1列的值赋给book2.xls的sheet1的c2开始的区域 End WithEnd Sub

I. 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

J. 在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

未经允许不得转载：山九号 » vbaexcelexcel文件|excel vba打开excel文件