ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] WIN7§ó·sWIN10«áVBA°j°éµLªk°õ¦æ

[µo°Ý] WIN7§ó·sWIN10«áVBA°j°éµLªk°õ¦æ

½Ð°Ýª©¤W«e½ú¡A§Ú«e¨â¤Ñ§ó·sWIN10¡A¤µ¤é°õ¦æ¤§«e¦bWIN7©Ò¼gªºVBA
µo²{§ì¤£¨ì°j°é(¬õ¦r¬q¸¨)¡A½Ð°ÝÀ³¸Ó¦p¦ó¸Ñ¨M
ÁÂÁÂ

µ{¦¡¦p¤U:
Public Sub ¥D¾÷ªOµo®Æ¤u§@ï¦X¨Östep1()

    Application.ScreenUpdating = False
    '¸ô®|
    Path = "D:\BOM"
    'ÀɦW¥ÑDir¨ú±o²Ä¤@­ÓÀÉ
    Filename = Dir(Path & "*.XLS") '°j°é±ø¥ó·í¦³Àɮפ~¶i¤J°j°é
   
    Do While Filename <> ""
   
        Workbooks.Open Path & "\" & Filename
        
        If i <> 1 Then '²Ä¤@­ÓÀÉ®×¥t¦s¦¨¥þ³¡
        
            Sheets(1).Copy '¦sÀɸô®| & ¦WºÙ & ®æ¦¡
            
            ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\¦Û°Ê¦X¨Ö.xlsx"
            i = 1
            Workbooks(Filename).Close
        Else
            Sheets(1).Copy After:=Workbooks("¦Û°Ê¦X¨Ö.xlsx").Sheets(1)
            Workbooks(Filename).Close
        End If
   
        Filename = Dir()
    Loop
    ActiveWorkbook.Save '¥Ø«e¨Ï¥ÎªºÀɮצsÀÉ
   
'¥Ø«e¨Ï¥ÎªºÃö³¬¨Ã¦sÀÉ
    'Workbooks("_¦Û°Ê¦X¨Ö.xlsx").Close savechanges:=True
   
'¶}±Ò"_¦Û°Ê¦X¨Ö.xlsx"ªºÀÉ®×
    'Workbooks.Open Filename:="R:\¸ê§÷\2017 ¬ÛÃö¸ê®Æ\¯Ó§÷_»Êª©_»¡©ú®Ñ½ÐÁÊ\JER\3  ¡´ ¥D¾÷ªOµo®Æ ¡´\Excel«e¸m¥[¤u§@·~\_¦Û°Ê¦X¨Ö.xlsx"

    '        ¨C­ÓSheet³£½Æ»s
'        For Each Sheet In ActiveWorkbook.Sheets
'            Sheet.Copy After:=ThisWorkbook.Sheets(1)
'        Next Sheet
    Application.ScreenUpdating = True
End Sub

©êºp¨S§ï¨ì¤wµLªk½s¿è¡A¬õ¦r½d³ò¬°¥H¤U°j°éªº¦a¤è
Do While Filename <> ""
   
        Workbooks.Open Path & "\" & Filename
        
        If i <> 1 Then '²Ä¤@­ÓÀÉ®×¥t¦s¦¨¥þ³¡
        
            Sheets(1).Copy '¦sÀɸô®| & ¦WºÙ & ®æ¦¡
            
            ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\¦Û°Ê¦X¨Ö.xlsx"
            i = 1
            Workbooks(Filename).Close
        Else
            Sheets(1).Copy After:=Workbooks("¦Û°Ê¦X¨Ö.xlsx").Sheets(1)
            Workbooks(Filename).Close
        End If
   
        Filename = Dir()
    Loop

TOP

½Ð°Ýª©¤W«e½ú¡A§Ú«e¨â¤Ñ§ó·sWIN10¡A¤µ¤é°õ¦æ¤§«e¦bWIN7©Ò¼gªºVBA
µo²{§ì¤£¨ì°j°é(¬õ¦r¬q¸¨)¡A½Ð°ÝÀ³¸Ó¦p¦ó ...
abc9gad2016 µoªí©ó 2019-11-1 15:07


¬Ý°_¨ÓÀ³¸Ó¬O§A D:\ ¥Ø¿ý¤U¤w¸g§ä¤£¨ì¥ô¦ó¤@­Ó BOM*.XLS ÀÉ®×,

§A­n¤£­n¸Õ¸Õ¥Î F8 °õ¦æ "³æ¨B¼Ò¦¡",

¦A©ó "§Y®É¹Bºâµøµ¡" ¸Ì¥´¤W :  debug.print ÅܼƦWºÙ  (¥´§¹«ü¥O«ö¤U Enter Áä)

³v­Ó½T»{¨C¤@¦æ«ü¥O¤¤¬ÛÃöÅܼƪº­È¬O§_²Å¦X§Aªº¹w´Á?

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-16 14:02 ½s¿è

¦^´_ 1# abc9gad2016


µo²{§Aªº¸ô®|¤Ö¤F "\"¡A¥["\" ¸Õ¸Õ?

Path = "D:\BOM"
Filename = Dir(Path & "\*.XLS")



¨S¦³¶iDo °j°é¥Nªí¹q¸£§ä¤£¨ìÀɮסA
§A¥ý½T»{§Aªº¹q¸£ ¬O§_¦³ D:\BOM ¸ê®Æ§¨
¨Ã¥B¸Ì­±¬O§_¦³ .xls ÀÉ®×?

Filename = Dir(Path & "\*.XLS")     '°j°é±ø¥ó·í¦³Àɮפ~¶i¤J°j°é
MsgBox Filename    'À³¸Ó­n¨q¥XÀɮצWºÙ
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD