¦p¦ó¥ÎVBA¦C¦L¯S©wÀɦWªºExcelÀÉ®×?
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|