Excel VBA質問箱 IV

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

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


8023 / 76732 ←次へ | 前へ→

【74289】Re:CSVファイルの読み込みの繰り返し
発言  Ib(初心者)  - 13/5/14(火) 11:14 -

引用なし
パスワード
   保存場所や変更可能だと思った場所だけ変更して実行しました。

Sub 角丸四角形3_Click()

  Dim strFileName As String
  Dim セル内容, パス名 As String
  Dim shT As Worksheet
  Dim shF As Worksheet
  Dim myA As Variant
  Dim myR As Range
  Dim x As Long
  Dim NameC As Range
 
  Application.ScreenUpdating = False
 
  Set NameC = Range("B4,B300,B600,B900,B1200,B1500") '■新規ブック名開始セル
 
  ' オープンする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)
  ThisWorkbook.Sheets("データ入力場所").Copy 'このシートをコピーして新規ブックを生成
  Set shT = ActiveWorkbook.Sheets(1)     '新規ブックのシートを規定
  パス名 = CreateObject("WSCript.Shell").SpecialFolders("C:\")  '★保存場所
 
  For Each myA In Array("A2:R272", "A273:R543", "A544:R815", "A816:R1085", "A1086:R1356", "A1357:R1627")  '●ここで転記元領域を規定。いくつでもOK
    Set myR = shF.Range(myA)
    セル内容 = NameC.Value
    myR.Copy shT.Range("A3")
    Application.DisplayAlerts = False  '同名ブックがあれば無条件上書き
    shT.Parent.SaveAs Filename:=パス名 & "\" & セル内容 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
    shT.Range("A3").Resize(myR.Rows.Count, myR.Columns.Count).ClearContents
    Set NameC = NameC.Offset(1)
  Next
 
  shF.Parent.Close False   'CSVファイルを閉じる
  shT.Parent.Close False   '作成した新規ブックを閉じる
 
  Application.ScreenUpdating = True
  MsgBox "処理終了"
 
End Sub


保存場所をMyDocumentsにしておけば実行は出来ましたが、1つしか保存されておらず、
タイトルが1番目もののまま、6番目のデータが中にある状態になってしまいました。
保存場所の設定と新規ブック名の入力方法が私のほうで間違っているのかもしれません。
何卒よろしくお願いいたします。
3 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 お礼

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