Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28159 / 76732 ←次へ | 前へ→

【53879】Re:複数のCSVファイルについて
発言  今日も暇人  - 08/2/13(水) 16:05 -

引用なし
パスワード
   今日も暇人です
ご苦労されているようなので

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
0 hits

【53875】複数のCSVファイルについて TKM 08/2/13(水) 11:12 質問
【53876】Re:複数のCSVファイルについて neptune 08/2/13(水) 11:43 発言
【53879】Re:複数のCSVファイルについて 今日も暇人 08/2/13(水) 16:05 発言
【53884】Re:複数のCSVファイルについて TKM 08/2/13(水) 17:27 お礼

28159 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free