- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
1跨檔案工作表名稱問題請教
1.1如圖一使用 Sheet46.Select 秀出 "此處需要物件" 停於Sheet46.Select
但用 Sheets("壓合結構").Select 即無問題
1.1.1 重點是 Sheet46 工作表名稱就是 ("壓合結構") 為何使用Sheet46.Select 秀出 "此處需要物件"
2.煩不吝賜教 THANKS ROBERT 05/10
圖一
Sub REPORT()
WNM = ActiveWindow.Caption
Dim fn As String
fn = Application.GetOpenFilename("所有文件,*.*")
If fn = "" Or fn = "False" Then Exit Sub
Workbooks.Open Filename:=fn
WNM1 = ActiveWindow.Caption
Sheet46.Select
SHTNM = ActiveSheet.Name
Do Until Range("H3") = "mm"
Application.Run "'" & WNM1 & "'!Ch_Unit"
Loop
Windows(WNM).Activate
A = Sheets("VBA").Range("B3")
B = 7
Do Until A > Sheets("VBA").Range("B3")
Do Until Range("I" & A) <> ""
A = A + 1
Loop
If Workbooks(WNM1).Worksheets(SHTNM).Range("B" & B) = "CO COPPER THICKNESS:" Or Workbooks(WNM1).Worksheets(SHTNM).Range("B" & B) = "SO COPPER THICKNESS:" Then B = B + 1
Do Until Workbooks(WNM1).Worksheets(SHTNM).Range("I" & B) <> ""
B = B + 1
Loop
Range("J" & A) = Workbooks(WNM1).Worksheets(SHTNM).Range("I" & B)
A = A + 1
Loop
Windows(WNM1).Activate
ActiveWorkbook.Close SaveChanges:=False
Windows(WNM).Activate
ActiveSheet.Shapes.Range(Array("按鈕 2")).Delete
End Sub |
|
發表於 2017-5-10 16:18
| 
發表於 2017-5-12 06:10
| 