fkjj.net
当前位置:首页 >> VBA EXCEL状态下,如何用相对路径和绝对路径调用某X... >>

VBA EXCEL状态下,如何用相对路径和绝对路径调用某X...

绝对路径(假设在d盘): Dim wordApp As Object Set wordApp=CreateObject("Word.Application") wordApp.Documents.Open "d:\xxxx.doc" 相对路径(假设与此excel在同一路径下): Dim wordApp As Object Set wordApp=CreateObject("Word.Applicat...

打开文件如下: Workbooks.Open ("C:\对账单\对帐单.xlsx") 这里你可以把“C:\对账单\”换成你的绝对路径, 你可以用:a = ThisWorkbook.Path a = ThisWorkbook.Path Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx") 来获取你当前表的绝对路径,...

'和当前打开的EXCEL文件放在同一个目录就可以Sub 更新() Sheet1.[b14] = "=VLOOKUP(D14,[原材料检验报告.xls]Cement!$A$2:$AE$1000,31,FALSE)"End Sub

先定义路径 1.当前路径: path = Application.ThisWorkbook.path 然后,打开时,加入其余路径,和文件名。 Workbooks.Open filename:= _ path & "\model\" & "book1.xls", Notify:=False 2.同级别文件夹路径: Sub hjs111() t = ThisWorkbook.pa...

先定义路径 1.当前路径: path = Application.ThisWorkbook.path 然后,打开时,加入其余路径,和文件名。 Workbooks.Open filename:= _ path & "\model\" & "book1.xls", Notify:=False 2.同级别文件夹路径: Sub hjs111() t = ThisWor...

打开文件如下: Workbooks.Open ("C:\对账单\对帐单.xlsx") 这里你可以把“C:\对账单\”换成你的绝对路径, 你可以用:a = ThisWorkbook.Path a = ThisWorkbook.Path Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx") 来获取你当前表的绝对路径,...

Sub 宏1() mypath = ActiveWorkbook.Path mypath = Left(mypath, InStrRev(mypath, "\") - 1) MsgBox mypath End Sub

没文件写什么代码

打开excel以下代码,可以提取其他文件中的表“重量汇总”F520:BV521的数据,其中有选择文件路径的过程,你稍改动也许对你有帮助。。。 Sub 数据提取() Dim FileName1 As String Dim FileName As String Dim FileName2 As String Dim FileName3 As ...

你要获取的相对路径,总有一个相对的东西,下面的代码假设相对本文件路径来写的: p1="C:AAA\BBB\CCC1\DDD\EEE\FFF.xlsx"p2=ThisWorkBook.Pathp3=""if left(p1,len(p2))=p1 then p3=right(p1,len(p1)-len(p2)) '如果路径p1的前面部分与p2完全一...

网站首页 | 网站地图
All rights reserved Powered by www.fkjj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com