- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
[發問] 關於用VBA開啟別的檔案後要如何回到原視窗呢?
本帖最後由 starry1314 於 2015-6-12 16:46 編輯
請問要怎麼修改呢
還是可以先用變數 讀取開啟檔案前的視窗名稱,
EX :
aa = ThisWorkbook.FullName
workbooks.Open ("\\Boss-pc\公用磁區\數據\資料庫\105-客戶明細.xlsm")
ActiveWorkbook.Sheets(aa).Select 但說無法識別...
Sub 貼上資料()
'
workbooks.Open ("\\Boss-pc\公用磁區\數據\資料庫\105-客戶明細.xlsm")
ActiveWorkbook.Sheets("收款跟催").Select '回到出餐單 會失敗改用thisworkbook也是會失敗
Range("A3").Select '選取要複製的資料行
Dim lSourceRow As Long, lTargetRow As Long
Dim wsTarget As Worksheet
With ActiveSheet
lSourceRow = Selection(1).Row '被點擊的該按鈕行數
' If .Cells(lSourceRow, "C").Text = vbNullString Then MsgBox "日期欄無資料，無法判斷貼上月份": Exit Sub
'Set wsTarget = Workbooks("客戶明細(總表).xlsm").Sheets(GetMonthStr(.Cells(lSourceRow, "C"))) '日期判斷要貼上的工作表
Set wsTarget = workbooks("105-客戶明細(總表).xlsm").Sheets("客戶明細")
Windows("105-客戶明細(總表).xlsm").Activate
Sheets("客戶明細").Select
lTargetRow = wsTarget.Cells(Rows.Count, "B").End(xlUp).Row + 1 '要貼上的位置
Application.ScreenUpdating = False
.Range(.Cells(lSourceRow, "A"), .Cells(lSourceRow, "AR")).Copy '複製A欄到AR欄的資料
wsTarget.Cells(lTargetRow, "B").PasteSpecial Paste:=xlPasteValues '在B欄開始貼上
wsTarget.Paste Link:=True '貼上連結
Application.ScreenUpdating = True '貼上連結
End With
'將檔案做超連結至A攔
With wsTarget
.Hyperlinks.Add Anchor:=.Cells(lTargetRow, "B"), _
Address:=ThisWorkbook.FullName
'SubAddress:=ThisWorkbook.Sheets("出餐單").Name & "!" & Rows(lSourceRow).Address, _
TextToDisplay:=.Cells(lTargetRow, "b").Text
.Hyperlinks.Add Anchor:=.Cells(lTargetRow, "AT"), _
Address:=ThisWorkbook.FullName
' SubAddress:=.Name '& "!" & Rows(lSourceRow).Address _
'TextToDisplay:=.Cells(lTargetRow, "ao").Text
End With
End Sub |
|
發表於 2015-6-12 16:38
| 
