⑴ excel中如何实现用VBA的ope函数打开某个txt文件
open打开文件需要有个完全的路径名称,建议先使用GetOpenFilename获取需要打开的文件全名称.再使用open进行文件流操作. dim count as long Dim Filt As String Dim FilterIndex As Integer Dim Title As String Dim File As Variant Dim fText As String '创建文件筛选列表 Filt = "Text Files (*.txt),*.txt," '默认显示*.* FilterIndex = 1 '设置对话框标题 Title = "打开文本文件" '获取文件路径以及文件名 File = Application.GetOpenFilename _ (FileFilter:=Filt, _ FilterIndex:=FilterIndex, _ Title:=Title) '如果取消对话框则退出 If File = False Then MsgBox "您未选择文件" Exit Sub End If'excel获取文本数据 Open File For Input As #1 count = 0 Do While Not EOF(1) count = count + 1 Line Input #1, fText Worksheets("Sheet1").Cells(count, 1).Value = fText Loop Close #1
⑵ 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就开始成为所适用操作平台上的电子制表软件的霸主。
⑶ 在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打开文件夹并搜索打开文件：
wb=range("B1")&""&range("C5")&".xls"workbooks.open(wb)
⑸ 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文件
Excel VBA功能虽然很强大，但因为涉及编写程序，所以使用该功能的人很少。Excel2007和以上版本中，VBA功能被隐藏了起来，不显示在菜单上。如果想使用编写VBA的功能，首先需要将其显示出来。
⑺ 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
⑻ excel vba做出一个打开文件对话框：
Sub SelectFile()Application.DisplayAlerts = Falsefil = ThisWorkbook.NameFilename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")If Filename <> False ThenaFile = Split(Filename, "\")sfilename = aFile(UBound(aFile))End IfWorkbooks.Open (Filename)Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).CellsWorkbooks(sfilename).CloseApplication.DisplayAlerts = TrueEnd Sub
⑼ 如何在Excel中用VBA打开指定的文件夹
打开E盘Shell "explorer.exe " & "E:\", vbNormalFocus
⑽ Excel VBA 文本文件打开对话框以及读写
建议用FileSystemObject操作：
示例
SubReadTextFile()DimfsAsObjectDimobjFileAsObjectDimstrContentAsStringDimstrFileNameAsStringstrFileName="C:aaa.txt"'此处可以用其他变量代替Setfs=CreateObject("Scripting.FileSystemObject")SetobjFile=fs.OpenTextFile(strFileName)DoWhileNotobjFile.AtEndOfStreamstrContent=strContent&objFile.ReadLine&vbCrLfLoopobjFile.CloseSetobjFile=NothingActiveWorkbook.Sheets(3).SelectRange("A1").SelectSelection.Formula=strContentEnd
另外，你用了Application.FileDialog(msoFileDialogOpen)打开文件，选择后实际上是没有打开文件的动作的，
需要用代码打开，文件名就是上面网友回答的“FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)”
然后使用你常用的Workbooks.OpenText命令打开吧！
不然肯定是“打开以后什么都没有，跟没打开似的”了！
未经允许不得转载：山九号 » excel打开文件vba|excel vba打开excel文件
