n7822123

¦^´_ 1# ziv976688


¦pªG­ìµ{¦¡¬O§A¦Û¤v¼gªº¡A¨º³o­Ó¹ï§A¨Ó»¡À³¸Ó¤£Ãø§a!?

    Sub Ex()
        Dim Path As String, A As String, Oldname As String, Newname As String
        Path = ThisWorkbook.Path  '¸ô®|
        A = Dir(Path & "\*.CSV")
        Do While A <> ""
            Oldname = Path & "\" & A
            A = Replace(A, "°ò·Ç¤é¡G", "")
            A = "539_" & A '·s¼W»Ý¨D:¦A±NÀɮצWºÙ«e§å§ï¼W¥[ "539_"
            A = Replace(A, ".csv", ".xls")
            Newname = Path & "\" & A
            'Name Oldname As Newname   '§ï¦WºÙ
             With Workbooks.Open(Oldname)
                 .SaveAs Filename:=Newname, FileFormat:=xlNormal   '§ï°ÆÀɮצW
                 .Close True
             End With
            Kill Oldname
            A = Dir
        Loop
    End Sub

¤@¦¸§å§ï¤j¶qÀɮצWºÙ(µ{¦¡¥DÀÉ).rar (9.5 KB)

¤U¸ü¦¸¼Æ: 2

2019-11-8 23:56

n7822123

¦^´_ 4# ziv976688


¦]¬°§A­ì¥»ªºCSVÀÉ¡A¤u§@ªí¦WºÙ¦³«_¸¹¡A¹H¤Ï¤F¤u§@ªí¦WºÙªº©R¦W¤è¦¡
©Ò¥H¦sÀÉ«á¦A¶}´N·|Åܦ¨³o¼Ë¤F¡A¥u­n§â¤u§@ªí¦WºÙ¤]§ï±¼´N¦æ¤F¡A¦p¤U

    Option Explicit
    Sub Ex()
        Dim oPath As String, A As String, Oldname As String, Newname As String
        Application.ScreenUpdating = False
        oPath = ThisWorkbook.Path  '¸ô®|
        A = Dir(oPath & "\*.CSV")
        Do While A <> ""
            Oldname = oPath & "\" & A
            A = Replace(A, "°ò·Ç¤é¡G", "")
            A = "539_" & A '·s¼W»Ý¨D:¦A±NÀɮצWºÙ«e§å§ï¼W¥[ "539_"
            A = Replace(A, ".csv", ".xls")
            Newname = oPath & "\" & A
             With Workbooks.Open(Oldname)
                .Sheets(1).Name = Replace(A, ".xls", "")
                .SaveAs Filename:=Newname, FileFormat:=xlNormal   '§ï°ÆÀɮצW
                .Close True
             End With
            Kill Oldname
            A = Dir
        Loop
    End Sub

¤@¦¸§å§ï¤j¶qÀɮצWºÙ(µ{¦¡¥DÀÉ)_n¤j.rar (9.82 KB)

¤U¸ü¦¸¼Æ: 5

2019-11-14 00:38