[發問] 請修正錯誤的程式碼

本帖最後由 ziv976688 於 2020-12-3 14:34 編輯

測試檔 :

請修正錯誤的程式碼.rar (105.09 KB)

'修改檔案類型--------------------------------- ‘列9
      oPath = ThisWorkbook.Path  '路徑
      A = Dir(oPath & "\*.CSV")
      Do While A <> ""
         Oldname = oPath & "\" & A
         A = Replace(A, "基準日：", "")
         A = "49_期距刪牌_" & A '新增需求:再將檔案名稱前批改增加 "49_期距刪牌_"
         A = Replace(A, ".csv", ".xls")
         Newname = oPath & "\" & A
         With Workbooks.Open(Oldname)
            .Sheets(1).Name = Replace(A, ".xls", "")
            .SaveAs Filename:=Newname, FileFormat:=xlNormal   '改副檔案名  ‘列20

以上是我在論壇下載的『將檔案名稱前批改增加 "49_期距刪牌_”，並更改副檔案名』的程式碼；
可能是因為原下載測試的CSV檔案名稱格式與目前測試的CSV檔案名稱格式不盡相同，所以目前的VBA主檔無法順利執行^^"

需求︰
EX︰將附件中的6的CSV檔案，一次執行即可將其更改為如(範例)的6個XLS檔案。

請問︰錯誤的程式碼要如何修正？
謝謝！

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2020-12-3 21:37 | 只看該作者

測試檔 :

'修改檔案類型--------------------------------- ‘列9
oPath = ThisWorkbook.Pa ...
ziv976688 發表於 2020-12-3 14:19

其實問題的癥結在於.csv檔案的格式與 .xls 檔案不符,
你只需要用記事本去開啟 .csv 檔案就會發現它其實是個(資料與 , 及換行字元組合成的)文字檔而已, 表現形式像是 :

期距數,1,10,29,38,47,2,11,20,39,48,3,12,21

Excel 程式能夠正常開啟是因為他有針對 csv 檔案做處理,
但你卻只是把副檔名改成.xls 它就沒辦法了.

想解決可以用Excel開啟 .csv 檔案再另存成 .xls 檔案即可.

oPath = ThisWorkbook.Path '路徑
A = Dir(oPath & "\*.CSV")
Do While A <> ""
Oldname = oPath & "\" & A
A = Left(A, Len(A) - 4) ' 去掉 .csv
With Workbooks.Open(Oldname)
.Sheets(1).Name = "Data" ' 開啟 .csv 檔案時, Sheet Name預設是檔名, 會發生錯誤,開檔時會有訊息問是否要修正
A = Replace(A, "基準日：", "")
A = "49_期距刪牌_" & A '新增需求:再將檔案名稱前批改增加 "49_期距刪牌_"
.SaveAs Filename:=oPath & "\" & A, FileFormat:=xlWorkbookNormal

複製代碼

49_期距刪牌_00排序_空數總覽-(VBA)-Ans.zip (66.7 KB)

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2020-12-4 00:49 | 只看該作者

本帖最後由 ziv976688 於 2020-12-4 00:52 編輯

回復 2# luhpro
謝謝您的不吝賜正。
已經可以順利執行了~感恩::lol

不好意思，是否可以請您將工作表的名稱 "Data"，改回如原範例的工作表名稱，
因為實際的檔案很多個，工作表名稱都是 "Data"，有些不方便^^"
謝謝您!

還有列43~列56執行無效，請詳見49_期距刪牌_合數排序-空數總覽(0期)-(2020-11-27)(工作表名稱範例)&49_期距刪牌_合數排序-空數總覽(0期)-(2020-12-01)(工作表名稱範例)內之說明~
是否能勞駕您在幫忙看看。再次謝謝您 !

測試檔 :

2020-1204.rar (89.46 KB)

'-抓Data日期=檔案日期,將工作表的第1列號碼指定的字顏和底色------列42
Set BK = ThisWorkbook
      Set xF = Nothing
T = Format(Left(Right(A, 15), 10), "yyyy/m/d") & ChrW(160) '搜尋檔案日期
Set xF = BK.Sheets("DATA").Range("A:A").Find(T, Lookat:=xlPart) '搜尋=A欄日期
If Not xF Is Nothing Then
   For V = 4 To 10
      If xF(1, V) <> "" Then
         [B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Font.ColorIndex = IIf(V = 10, 3, 7)       '將=A欄日期列的第1列的號碼標示字顏
      End If
      If xF(2, V) <> "" Then
         [B1:AX1].Find(xF(2, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 8, 6)   '將=(A欄日期列+1列)的第1列的號碼標示底色
      End If
   Next V
End If       '列56

TOP

n7822123