[發問] 請教各位前輩vba 關於分頁寫入問題~

本帖最後由 ii31sakura 於 2014-6-3 22:09 編輯

各位前輩請問一下、小弟目前卡在巨集(分頁確認)中有打一個問題點註解，
此段主要為判定或新增該名稱分頁是否存在、小弟將單獨分頁名稱填入是可以執行的，
但如果使用for迴圈依續將檔案分頁(人員清單)中的分頁清單進行填入將會執行錯誤，
請問各位前輩小弟的構想寫法中是哪邊出了問題呢？

感謝各位大大了~

檢查工作頁TEST.zip (15.25 KB)
程式碼：
Sub 分頁確認()
'For i = 2 To Worksheets("人員清單").[e65536].End(3).Row '變數i 從2到 e欄最後一項資料

Workbooks.Open Worksheets("總控制").Cells(2, 3) & "\" & Worksheets("總控制").Cells(2, 2)
SN = "T001" 'Worksheets("總控制").Cells(i, 5)  問題點
For Each s In Sheets
      If s.Name = SN Then
         SNN = 1
         Exit For
      Else
         SNN = 0
      End If
Next
If SNN = 0 Then
      Sheets.Add
      ActiveSheet.Name = SN
Else
      Sheets(SN).Select
End If
ActiveWorkbook.Close True
' Next

End Sub

樓主熱帖

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

4^#

發表於 2014-6-4 11:33 | 只看該作者

回復 2# GBKEE

GBKEE大大不好意思、原來是小弟沒改到一個地方，小弟嘗試將下面這個地方更改後功能就正常執行了，
感謝 GBKEE大大的幫忙解答哦~

註：SN = wb(1).Worksheets("總控制").Cells(i, 5) ' 問題點 →改成 SN = wb(1).Worksheets("人員清單").Cells(i, 5) ' 問題點

TOP

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

3^#

發表於 2014-6-4 09:10 | 只看該作者

回復 2# GBKEE

GBKEE大大、請問小弟在執行時會出現"執行階段錯誤'1004':應用程式或物件定義上的錯誤，
使用偵錯時會顯示在 ActiveSheet.Name = SN 這個部份，
能不能請麻煩幫忙指點迷津一下呢？

小弟在此先謝過GBKEE大大的幫忙了。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-4 05:53 | 只看該作者

回復 1# ii31sakura
是這樣嗎?

Sub 分頁確認()
Dim wb(1 To 2) As Workbook, SN As String, SNN As Integer
Set wb(1) = ThisWorkbook
Set wb(2) = Workbooks.Open(Worksheets("總控制").Cells(2, 3) & "\" & Worksheets("總控制").Cells(2, 2))
For i = 2 To wb(1).Worksheets("人員清單").[e65536].End(3).Row '變數i 從2到 e欄最後一項資料
SN = wb(1).Worksheets("總控制").Cells(i, 5) ' 問題點
For Each s In wb(2).Sheets
SNN = 0
If s.Name = SN Then
SNN = 1
Exit For
End If
Next
If SNN = 0 Then
wb(2).Sheets.Add
ActiveSheet.Name = SN
Else
Sheets(SN).Select
End If
Next
wb(2).Close True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP