|
今日も暇人です
ご苦労されているようなので
Sub Torikomi()
Dim i As Long
Dim F_Nb As String
Dim MyFName As Workbook
Dim CsvFile As String
Dim 範囲 As Range
i = 1
For i = 1 To 3 ’確認用に100を3に変更
F_Nb = Format(i, "000")
CsvFile = Dir(ThisWorkbook.Path & "\00000" & F_Nb & ".csv")
If CsvFile = "" Then
MsgBox F_Nb & "はありません", vbInformation, "確認してください"
Exit Sub
Else
Set MyFName = Workbooks.Open(CsvFile)
End If
Set 範囲 = MyFName.ActiveSheet.Range("A8:D27")
' ・
' ・
' ・処理
' ・
' ・
MyFName.Close
Next i
End Sub
今回はコメントは書きません。TKM さんが書いてみてください。
neptuneさんと同じく、自分と自分以外の人がメンテするためには書いています。
>Windows("book1").Activate
>If a = 2 Then
> ActiveCell.Offset(rowoffset:=2, columnoffset:=-48).Activate
でActivateされる前にActivateされているCellが解りません。
操作ファイル?のAW列より右なのはわかりますが…。
やっぱりコメントの代わりにコードのイメージを
ThisWorkbookと同じところに有るcsvファイルを00000001から00000003まで
一つずつMyFNameとあだ名をつけて、開きます。
MyFNameを開いたときにActiveなSheetのRange("A8:D27")を 範囲 とあだ名をつける
もし、00000***.csv ファイルが無かったら、マクロ中止です。
*投稿したのを一回消して投稿しなおしました。
前回のコード試してたらすみません。m(__)m
|
|