vba打开当前目录下的文件
答:打开文件如下:Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径,你可以用:a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径,然后再打开,因为不知道你的具体情况,如果有问题...
答:原来的程序里查找文件的办法看不明白,改用另一种方法,复制粘贴时的多余操作太多,进行了简化,改好的如下:Sub 打开1()Dim myPath$, AK As Workbook, OAK As Workbook Set fso = CreateObject("Scripting.FileSystemObject")Set OAK = ActiveWorkbook myPath = "C:\VBA\data" '把文件路径定义给...
答:" & _ sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1) End IfNextWorksheets(1).Range("A1").Consolidate rangeArray, xlSum, True, True '汇总多个工作薄的第一个工作表Set sht = NothingEnd Sub这是一个将当前工作薄中的所有除当前打开的工作薄的数据汇总到当前工作薄...
答:wb=range("B1") & "\" & range("C5") & ".xls"workbooks.open(wb)
答:用FileSearch功能,给个例子,自己研究一下:Sub test()With Application.FileSearch '寻找的目录是当前工作薄所在的目录 .LookIn = ThisWorkbook.Path '只寻找文件,不寻找下级目录 .SearchSubFolders = False '要找的文件是XLS文件 .FileType = msoFileTypeExcelWorkbooks '寻找 .NewSearch '如果找到文件...
答:有关FileSearch对象更多的信息,请参考VBA自身的帮助,很详细的.以下代码供参考.Sub aRef()Dim i As Long Dim fs As Object Set fs = Application.FileSearchWith fs'设置要查找的起始目录 .LookIn = C:\Tmep '要查找的文件类型 .FileType = msoFileTypeExcelWorkbooks '是否查找子目录 .Search...
答:Shell ("excel.exe d:\aa.xls"), vbNormalFocus
答:Sub openmyexcel()Dim fs, f, i, j, k, f1, f2 Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.getfolder("f:\hk")For Each i In f.subfolders If InStr(i.Name, "102471") <> 0 Then Set f1 = fs.getfolder(i.Path)For Each j In f1.subfolders If InStr(j...
答:Sub 文件夹内遍历法()Dim arr, n&, i&, j&, s$, sh Dim myPath$, myFile Dim cnn As Object, rs As Object, wb As Workbook myPath = ThisWorkbook.Path & "\"myFile = Dir(myPath & "*.xlsm")n = CreateObject("Scripting.FileSystemObject").GetFolder(myPath).Files.Count - 1...
答:AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 End If '在这里插入你要处理的代码AK.close'这里可以选择参数是否保存,你也可以删除这行代码,手动关闭文件myFile = Dir '找寻下一个*.xlsx文件 Loop Application.ScreenUpdating = True '解除冻结屏幕,此类语句一般成对使用 End Sub ...
网友评论:
瞿榕15898164582:
VBA 怎么打开当前文件夹下的excel? -
62370云阎
: 将当前文件夹设为默认即可. 在你的语句前面加上下面两句: ChDir ThisWorkbook.Path ChDrive ThisWorkbook.Path
瞿榕15898164582:
vba中如何读取当前文件夹 -
62370云阎
: ThisWorkbook.Path代表VBA所在工作簿的文件夹
瞿榕15898164582:
EXCEL如何使用VBA打开相对路径下的文件或文件夹? -
62370云阎
: 打开文件如下:Workbooks.Open ("C:\对账单\对帐单.xlsx") 这里你可以把“C:\对账单\”换成你的绝对路径,你可以用:a = ThisWorkbook.Path a = ThisWorkbook.Path Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx") 来获取你当...
瞿榕15898164582:
如何用vba代码打开文件夹内的word文档? -
62370云阎
: Sub Read_Word() Dim worDoc As object Dim wordappl As object Dim mydoc As String Dim myappl As String mydoc = thisworkbook.path & "\" & "文件名.doc"'本文档目录下的doc文件,这里可以直接改成路径+文件名的形式 Set wordappl ...
瞿榕15898164582:
vba 点击按钮如何打开文件所在的目录 -
62370云阎
: Sub 按钮1_Click() Shell "explorer " & ThisWorkbook.Path, vbNormalFocus End Su
瞿榕15898164582:
VBA中如何打开一个文件夹内的所有EXCEL文件? -
62370云阎
: 这段代码是读取一个文件夹下的所有文件,也可以根据扩展名筛选其它格式的. '有了文件名,就是打开文件,获得每个文件的SHEET名字.然后写到你想要的地方 SubMacro1() DimmyDialogAsFileDialog,oFileAsObject,strNameAsString,...
瞿榕15898164582:
如何通过VBA打开一个局域网中指定路径的文件?如何通过VBA打开
62370云阎
: 注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As Workbook Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖...
瞿榕15898164582:
excel中如何用vba打开一个相对路径下的资料 -
62370云阎
: 先定义路径1.当前路径:path = Application.ThisWorkbook.path 然后,打开时,加入其余路径,和文件名.Workbooks.Open filename:= _ path & "\model\" & "book1.xls", Notify:=False 2.同级别文件夹路径:Sub hjs111() t = ThisWorkbook....
瞿榕15898164582:
vba怎么打开并读取一个指定路径下的excel文件 -
62370云阎
: sub 读取文件()dim PH$, FN$ph = '路径,注意最后要是“\”fn = dir(ph & "*.xls")do until fn = ""……你需要的处理fn = dir '依次读取 xls 文件,文件名赋值给fnloopend sub
瞿榕15898164582:
vba 打开文件 -
62370云阎
: Shell "C:\WINDOWS\SYSTEM32\notepad.exe " & "C:\pdfinfo.ini", vbNormalFocus