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

¦p¦ó¥ÎVBA¦C¦L¯S©wÀɦWªºExcelÀÉ®×?

¦p¦ó¥ÎVBA¦C¦L¯S©wÀɦWªºExcelÀÉ®×?

¦U¦ì¤j¤j,½Ð°Ý¦p¦ó¦C¦L»P ComboBox ¿ï¨úªº¿ï¶µ¤@¼ËªºExcelÀÉ®×?
¨Ò¦p
¦pªG¦bComboBox¤¤¿ï¨úªº¬O"ABC"
¨º§Ú·Q­n°µ¤@­ÓCommandButton,«ö¤U«á¥i¥H§â"ABC.xls"Àɮת½±µ¦C¦L¥X¨Ó,¤£»Ý­n¶}±ÒABC.xls
PS: ComboBox¬O°µ¦b¦Û­qªí³æ¤¤
ÁÂÁÂ

¦^´_ 1# hbjang


    ¼Ó¥DÀ³¸Ó­n±N±¡ªp´y¼gªº§ó²M·¡¤@¨Ç:
    ¦³¤@¨Ç±ø¥ó­n»¡©ú²M·¡
    1. Combobox ¬D¿ï«á,¶i¦æ¦C¦L, ¨º¸ô®|¬O§_¤w¸g©T©w¦ºªº,ÁÙ¬O­n¦A¬D¿ïÁ|¸ô®|~
    2. Àɮפ¤ªºsheet¬O§_¶È¥u¦³1­Ósheet©Î¬O­n¥þ³¡sheet³£­n¦C¦L
    ¤@¨Ç±z­nªºªF¦è~ ­n»¡©ú²M·¡­ò~
    ³o¼Ëª©¤j©Î¦U¤j¤j­Ì¤~¯àÀ°±z«È»s¤Æ³B²z±z­nªº~
    ¤~¯à§Ö³tªº±N§Aªº°ÝÃD³B²z­ò~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¤£¦n·N«ä,°ÝÃD¨S³¯­z²M·¡
1.¦s©ñÀɮתº¸ô®|¬O©T©wªº
2.¨C­ÓExcelÀɮ׳£¥u¦³¤@­Ósheet
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-3-15 14:22 ½s¿è

¦^´_ 3# hbjang


    ¦A½Ð±Ð EXCEL ÀɮצWºÙ ¦³³W«ß? ©ÎªÌ¬O  ¦³§¹¾ãªºÀɮצWºÙ??

¦pªG ¦³EXCELÀÉ®× ¤º¦s©ñ ­n¦C¦LÀɮתº¦WºÙ
¦p ÀɮצWºÙ.xls    «h¥i¥Î¥H¤Uµ{¦¡ ª½±µ¦C¦L

Sub Macro1()
For ux = 1 To 65535
  If Range("a" & ux).Value <> "" Then
        ee = Range("a" & ux).Value
        ChDir "D:\­n¦C¦L¸ê®Æ"   'Àɮצs©ñªº¸ê®Æ§¨
        Workbooks.Open Filename:="D:\­n¦C¦L¸ê®Æ\" & ux & ".xlsx"
        Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne05:"   ' ³oÃ䬰 ³]©w¦Lªí¾÷(Microsoft Office Document Image Writer on Ne05:)
        ExecuteExcel4Macro _
            "PRINT(1,,,1,,,,,,,,2,""Microsoft Office Document Image Writer on Ne05:"",,TRUE,,FALSE)" ' ³oÃ䬰 ³]©w¦Lªí¾÷(Microsoft Office Document Image Writer on Ne05:)
        ActiveWindow.Close
    End If
Next ux
End Sub

TOP

²×©ó§â°ÝÃD¸Ñ¨M¤F,ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD