返回列表下一主題上一主題發帖

[發問] 當前路徑寫法?

carus1009

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-9
最後登錄: 2021-3-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-19 10:32 | 只看該作者

[發問] 當前路徑寫法?

Sub test()
aa = ThisWorkbook.Path
Set d1 = Workbooks(aa).Worksheets("估價單-含稅")
Workbooks.Open FileName:="C:\Users\Administrator\Google 雲端硬碟\行程表\開會資料.xls"
Workbooks("開會資料.xls").Activate
Set d3 = Workbooks("開會資料.xls").Worksheets("103年11月份")
d3.Range("a1").Select
Selection.End(xlDown).Select
d3.Range("a" & ActiveCell.Row + 1).Value = d1.Range("j5")
d3.Range("c" & ActiveCell.Row + 1).Value = d1.Range("c6")
d3.Range("d" & ActiveCell.Row + 1).Value = d1.Range("k6")
d3.Range("e" & ActiveCell.Row + 1).Value = 1
d3.Range("f" & ActiveCell.Row + 1).Value = d1.Range("j27")
d3.Range("g" & ActiveCell.Row + 1).Value = d1.Range("c7")
Workbooks("開會資料.xls").Close savechanges:=True
MsgBox ("處理完成")
End Sub

請問aa的部份能否變為當下文件開啟的路徑?
還是需另外的寫法?
困擾小弟好久,希望各位先進能幫小弟解答~感謝萬分...