標題: [發問] 跨檔案工作表名稱問題請教 [打印本頁]

---

作者: rouber590324    時間: 2017-5-10 16:18     標題: 跨檔案工作表名稱問題請教

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

---

作者: GBKEE    時間: 2017-5-12 06:10

本帖最後由 GBKEE 於 2017-5-12 06:11 編輯

回復 1# rouber590324

執行程式碼VBProject所屬的Excel物件如是 ActiveWorkbook
或程式碼指明在VBProject所屬的Excel物件中的工作表物件
Sheet46.Select 沒有錯誤
ActiveWorkbook 不是程式碼VBProject所屬的Excel物件,
工作表名稱 Sheets("壓合結構").Select
或 工作表的索引值如 Sheets(5).Select

---

作者: rouber590324    時間: 2017-5-18 16:34

dear GBKEE 大大
感謝您之回覆. thanks*10000

---

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