- 帖子
- 8
- 主題
- 3
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-11-9
- 最後登錄
- 2024-11-28
|
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的部份能否變為當下文件開啟的路徑?
還是需另外的寫法?
困擾小弟好久,希望各位先進能幫小弟解答~感謝萬分... |
|
發表於 2014-11-19 10:32
| 
