返回列表 上一主題 發帖

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

ii31sakura

帖子
43 
主題
13 
精華
0 
積分
75 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2014-5-6 
最後登錄
2019-6-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-6-3 22:07 | 顯示全部帖子

[發問] 請教各位前輩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

帖子
43 
主題
13 
精華
0 
積分
75 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2014-5-6 
最後登錄
2019-6-17 
2#
發表於 2014-6-4 09:10 | 顯示全部帖子
回復 2# GBKEE

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

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

TOP

ii31sakura

帖子
43 
主題
13 
精華
0 
積分
75 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2014-5-6 
最後登錄
2019-6-17 
3#
發表於 2014-6-4 11:33 | 顯示全部帖子
回復 2# GBKEE

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

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

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題