Excel VBA質問箱 IV

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

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


8018 / 76732 ←次へ | 前へ→

【74294】Re:CSVファイルの読み込みの繰り返し
発言  UO3  - 13/5/15(水) 10:07 -

引用なし
パスワード
   ▼Ib(初心者) さん:

おはようございます

改訂版です。
保存ブックが xlsm なので、このマクロブック自体をマクロ付で保存しています。
転記の後、転記領域をクリアしていますが、転記前にはクリアしていません。
なので、マクロブックの"データ入力場所"シートの転記想定領域は、空白にしておいてください。
(転記領域サイズが、必ずしも一定ではないようですのでマクロでの事前のクリアが困難なので)

Sub 円楕円2_Click()

  Dim strFileName As String
  Dim セル内容, パス名 As String
  Dim shT As Worksheet
  Dim shF As Worksheet
  Dim shM As Worksheet
  Dim myR As Range
  Dim i As Long
  Dim nameV As Variant
  Dim CopyV As Variant
  Dim NameC As Range
  
  Application.ScreenUpdating = False
  
  Set shM = ActiveSheet
  Set shT = ThisWorkbook.Sheets("データ入力場所")
  
  nameV = Array("B4", "B300", "B600", "B900", "B1200", "B1500")                    '新規ブック名セル
  CopyV = Array("A2:R272", "A273:R543", "A544:R815", "A816:R1085", "A1086:R1356", "A1357:R1627")   '転記元領域
  
  ' オープンするCSVファイルのフォルダを C:\ として
  ' ファイルオープンのダイアログを開く
  ChDir ("C:\")
  strFileName = Application.GetOpenFilename("CSVファイル (*.CSV),*.CSV", 1, "ファイルを選択")
  If strFileName = "False" Then Exit Sub 'キャンセルボタンなら終了
  
  'Csvファイルのシートを規定
  Set shF = Workbooks.Open(Filename:=strFileName).Sheets(1)
  パス名 = CreateObject("WSCript.Shell").SpecialFolders("MyDocuments")  '★保存場所
  
  For i = LBound(nameV) To UBound(nameV)
  
    Set NameC = shM.Range(nameV(i))   '保存ブック名セル
    Set myR = shF.Range(CopyV(i))    '転記元領域
    セル内容 = NameC.Value
    myR.Copy shT.Range("A3")
    Application.DisplayAlerts = False  '同名ブックがあれば無条件上書き
    'マクロブックの複製ブックを新規作成
    ThisWorkbook.SaveCopyAs パス名 & "\" & セル内容 & ".xlsm"
    '次のコピーのため、転記した領域をクリア
    shT.Range("A3").Resize(myR.Rows.Count, myR.Columns.Count).ClearContents
  
  Next
  
  shF.Parent.Close False   'CSVファイルを閉じる
  
  Application.ScreenUpdating = True
  MsgBox "処理終了"
  
End Sub

6 hits

【74273】CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/13(月) 11:32 質問
【74274】Re:CSVファイルの読み込みの繰り返し UO3 13/5/13(月) 16:26 発言
【74275】Re:CSVファイルの読み込みの繰り返し UO3 13/5/13(月) 16:55 発言
【74279】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/13(月) 19:30 回答
【74282】Re:CSVファイルの読み込みの繰り返し UO3 13/5/13(月) 21:12 発言
【74283】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/13(月) 22:26 質問
【74284】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 0:02 質問
【74287】Re:CSVファイルの読み込みの繰り返し UO3 13/5/14(火) 7:56 発言
【74289】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 11:14 発言
【74290】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 11:31 発言
【74291】Re:CSVファイルの読み込みの繰り返し UO3 13/5/14(火) 18:12 発言
【74292】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/14(火) 20:30 発言
【74294】Re:CSVファイルの読み込みの繰り返し UO3 13/5/15(水) 10:07 発言
【74296】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 16:40 発言
【74297】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 19:02 発言
【74298】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 19:15 発言
【74299】Re:CSVファイルの読み込みの繰り返し UO3 13/5/15(水) 21:48 発言
【74300】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/15(水) 21:53 発言
【74301】Re:CSVファイルの読み込みの繰り返し UO3 13/5/16(木) 6:42 発言
【74302】Re:CSVファイルの読み込みの繰り返し Ib(初心者) 13/5/16(木) 10:59 お礼

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