- Excel VBA 質問スレ Part33
659 ：デフォルトの名無しさん[sage]：2014/06/10(火) 02:07:04.29 ID:hc4LiDN+ - ないです
|
- Excel VBA 質問スレ Part32
945 ：デフォルトの名無しさん[sage]：2014/06/10(火) 03:33:00.72 ID:hc4LiDN+ - >>944
Sub test()
Dim I As Integer
For I = 1 To 4
If Dir("C:\excel\data" & I & ".xlsx") <> "" Then
Workbooks.Open "C:\excel\data" & I & ".xlsx"
End If
Next I
End Sub
|
- Excel VBA 質問スレ Part33
664 ：デフォルトの名無しさん[sage]：2014/06/10(火) 21:30:20.37 ID:hc4LiDN+ - >>663
枚数 = Range("A2").Value
Workbooks.Open Range("A1").Value & ".xls"
If 枚数 > 0 Then Sheets("sheet1").PrintOut Copies:=枚数
|