Excel VBA質問箱 IV

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

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


28162 / 76732 ←次へ | 前へ→

【53875】複数のCSVファイルについて
質問  TKM  - 08/2/13(水) 11:12 -

引用なし
パスワード
   はじめまして。
複数のCSVファイルについてです。
過去ログを見てチャレンジしてみたのですが、 どうしてもうまくいかず
皆さんの力をお貸しください。

 csvファイル"00000001"から"00000100"までbook1の特定の表にデータを抽出するマクロを作ってみたのですが、1行目が00000001の値、2行目が00000002の値となるようにしたいのですが。
説明不足かもしれませんが、何かいい方法ありませんでしょうか?
よろしくお願いいたします。

Dim myFLName As String
Dim csvfile As String
Dim 範囲 As Range
Dim a As Variant 
Dim d As Variant
  
  csvfile = Dir(ThisWorkbook.Path & "\00000001.csv")
  
  If csvfile = "" Then
  
  MsgBox "シートがありません", vbInformation, "確認してください"
  Exit Sub
  
  Else
  
  myFLName = ThisWorkbook.Path & "\00000001.csv"
  Workbooks.Open Filename:=myFLName
  
  End If  
  
  For Each a In Array(2, 7, 9, 11, 27, 29, 31, 33, 37)
  
    Windows("00000001.csv").Activate
    Set 範囲 = Worksheets("00000001").Range("a8:d27")

    値 = Application.WorksheetFunction.VLookup(a, 範囲, 4)

    Windows("book1").Activate
   
      If a = 2 Then
        ActiveCell.Offset(rowoffset:=2, columnoffset:=-48).Activate
        ActiveCell.Formula = 値
      Else
        ActiveCell.Offset(columnoffset:=1).Activate
        ActiveCell.Formula = 値
      End If

  Next a
  
    ActiveCell.Offset(columnoffset:=11).Activate
   
  For Each d In Array(14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 50)
  
    値 = Application.WorksheetFunction.VLookup(d, 範囲, 4)
   
      If d = 14 Then
        ActiveCell.Formula = 値
      Else
        ActiveCell.Offset(columnoffset:=1).Activate
        ActiveCell.Formula = 値
      End If

  Next d


Windows("00000001.csv").Activate
ActiveWorkbook.Close SaveChanges:=False

End Sub

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 お礼

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