台灣最大程式設計社群網站
線上人數
1015
 
會員總數:245228
討論主題:189098
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> VBA無法只讀取.xls副檔名
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VBA無法只讀取.xls副檔名
價值 : 100 QP  點閱數:134 回應數:0

樓主

JC
門外漢
0 1
10 0
發送站內信

想要將巨集所在的資料夾內所有的.xls的檔案且工作表名稱為Start的sheet全部複製到巨集內,
但是執行的時候會連同.xlsm / .xlsx的副檔名都一起開啟並複製,導致巨集會無法執行成功,且直接變成唯讀狀態。

想請問如何修改,才能只讀取.xls的副檔名
謝謝

p.s使用2010 / 2013版 跑此巨集


Sub Get_Click()

Set wb = ThisWorkbook
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Do While MyName <> ""
Workbooks.Open Filename:=MyPath & MyName, ReadOnly:=True

'只複製Start Sheet
If ActiveWorkbook.Sheets.Count > 0 Then
Worksheets("Start").Copy _
After:=ThisWorkbook.Sheets(1)

ActiveWorkbook.Sheets(2).Name = ActiveWorkbook.Sheets(2).Range("F3") '變更SheetName
End If

Workbooks(MyName).Close
MyName = Dir()
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "Done!"

End Sub







搜尋相關Tags的文章: [ VBA ] , [ xls ] ,
本篇文章發表於2019-10-11 21:45
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.