[算表] VBA另存成unicode檔

看板Office作者 (嫑槑)時間7年前 (2018/10/16 18:54), 編輯推噓0(003)
留言3則, 2人參與, 7年前最新討論串1/1
軟體:EXCEL 版本:2010 請教大神, 我要將EXCEL檔另存成unicode檔,使用下列程式碼,執行時會有一個問題 如果將VBA程式碼設密碼保護 https://imgur.com/lX0c6WG.jpg
就會出現如下錯誤 https://imgur.com/xQRJFzN.jpg
但是VBA程式碼如果解開密碼保護,就能正確存檔, 請問要如何調整,才能不解開VBA程式碼的密碼,也能正確存檔呢? 謝謝 XPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Application.ActiveWorkbook.SaveAs Filename:=XPath & "\test.txt", _ FileFormat:=xlUnicodeText, CreateBackup:=False Application.DisplayAlerts = True Application.ScreenUpdating = True -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.216.164.223 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1539687295.A.730.html

10/16 22:26, 7年前 , 1F
如果無合適方式的話,可於activeworkbook上方加上
10/16 22:26, 1F

10/16 22:27, 7年前 , 2F
activesheet.copy 試試
10/16 22:27, 2F

10/17 08:33, 7年前 , 3F
可以了,感謝協助
10/17 08:33, 3F
文章代碼(AID): #1RnSD_Sm (Office)
文章代碼(AID): #1RnSD_Sm (Office)