標題: [發問] 當前路徑寫法? [打印本頁]

---

作者: carus1009    時間: 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的部份能否變為當下文件開啟的路徑?
還是需另外的寫法?
困擾小弟好久,希望各位先進能幫小弟解答~感謝萬分...

---

作者: owen06    時間: 2014-11-19 13:11

回復 1# carus1009


    activeworkbook.Path  就行了吧。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)