你可以用：a=ThisWorkbook.Patha=ThisWorkbook.PathWorkbooks.Open(""&a&"&"\"&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我如果当前文件夹下...

在EXCEL中的vba编辑器中输入以下代码，将需要打开的文件夹路径填写完整。Sub打开文件夹()DimpAsStringp="C:\Users\"'这里填写完整你需要打开文件夹的路径Shell"EXPLORER.EXE"&p,vbNormalFocus'...

EXCELvba(1)读取指定文件夹下所有文件夹的名字,并储存在指定的excel表格中。(2)根据储存在excel表格中的文件夹名字顺序,打开每个文件夹,然后再关闭该文件夹,如此循环,直到依...EXCELvba(1)读取指定文件夹下所有文件夹的名字,并储存...

wb=range("B1")&"\"&range("C5")&".xls"workbooks.open(wb)

将当前文件夹设为默认即可。在你的语句前面加上下面两句：ChDirThisWorkbook.PathChDriveThisWorkbook.Path

Subopenmyexcel()Dimfs,f,i,j,k,f1,f2Setfs=CreateObject("Scripting.FileSystemObject")Setf=fs.getfolder("f:\hk")ForEachiInf.subfoldersIfInStr(i.Name,"102471")<>0Then..

打开E盘Shell"explorer.exe"&"E:\",vbNormalFocus

SetmyFiles=myFolder.FilesForEachoFileInmyFilesstrName=UCase(oFile.Name)strName=VBA.Right(strName,3)IfstrName="xls"OrstrName="XLS"Then'这是扩展名选择'下面就可接着写打开文件...

AsString,ByValnShowCmdAsLong)AsLongPrivateConstSW_SHOWNORMAL=1PrivateSubCommand1_Click()ShellExecute0,"open","d:\",0,0,SW_SHOWNORMALEndSub示例打开D盘供你修改...

\x0d\x0aWorkbooks.Openfilename:=_\x0d\x0apath&"\model\"&"book1.xls",Notify:=False\x0d\x0a2.同级别文件夹路径：\x0d\x0aSubhjs111()\x0d\x0at=ThisWorkbook.path'当前...