返回列表 上一主題 發帖

[發問] WIN7更新WIN10後VBA迴圈無法執行

abc9gad2016

帖子
69 
主題
16 
精華
0 
積分
84 
點名
0  
作業系統
WIN7 
軟體版本
EXCEL2010 
閱讀權限
20 
註冊時間
2016-3-20 
最後登錄
2024-4-24 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-11-1 15:07 | 顯示全部帖子

[發問] WIN7更新WIN10後VBA迴圈無法執行

請問版上前輩，我前兩天更新WIN10，今日執行之前在WIN7所寫的VBA
發現抓不到迴圈(紅字段落)，請問應該如何解決
謝謝

程式如下:
Public Sub 主機板發料工作簿合併step1()

    Application.ScreenUpdating = False
    '路徑
    Path = "D:\BOM"
    '檔名由Dir取得第一個檔
    Filename = Dir(Path & "*.XLS") '迴圈條件當有檔案才進入迴圈
   
    Do While Filename <> ""
   
        Workbooks.Open Path & "\" & Filename
        
        If i <> 1 Then '第一個檔案另存成全部
        
            Sheets(1).Copy '存檔路徑 & 名稱 & 格式
            
            ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\自動合併.xlsx"
            i = 1
            Workbooks(Filename).Close
        Else
            Sheets(1).Copy After:=Workbooks("自動合併.xlsx").Sheets(1)
            Workbooks(Filename).Close
        End If
   
        Filename = Dir()
    Loop
    ActiveWorkbook.Save '目前使用的檔案存檔
   
'目前使用的關閉並存檔
    'Workbooks("_自動合併.xlsx").Close savechanges:=True
   
'開啟"_自動合併.xlsx"的檔案
    'Workbooks.Open Filename:="R:\資材\2017 相關資料\耗材_銘版_說明書請購\JER\3  ● 主機板發料 ●\Excel前置加工作業\_自動合併.xlsx"

    '        每個Sheet都複製
'        For Each Sheet In ActiveWorkbook.Sheets
'            Sheet.Copy After:=ThisWorkbook.Sheets(1)
'        Next Sheet
    Application.ScreenUpdating = True
End Sub
收藏 分享

abc9gad2016

帖子
69 
主題
16 
精華
0 
積分
84 
點名
0  
作業系統
WIN7 
軟體版本
EXCEL2010 
閱讀權限
20 
註冊時間
2016-3-20 
最後登錄
2024-4-24 

論壇贊助勳章
2#
發表於 2019-11-1 17:53 | 顯示全部帖子
抱歉沒改到已無法編輯，紅字範圍為以下迴圈的地方
Do While Filename <> ""
   
        Workbooks.Open Path & "\" & Filename
        
        If i <> 1 Then '第一個檔案另存成全部
        
            Sheets(1).Copy '存檔路徑 & 名稱 & 格式
            
            ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\自動合併.xlsx"
            i = 1
            Workbooks(Filename).Close
        Else
            Sheets(1).Copy After:=Workbooks("自動合併.xlsx").Sheets(1)
            Workbooks(Filename).Close
        End If
   
        Filename = Dir()
    Loop

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題