Excel VBA質問箱 IV

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

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


5201 / 13645 ツリー ←次へ | 前へ→

【52127】ファイル読込をして読込んだファイル名をシート名にして保存する なおちん 07/10/22(月) 14:56 質問[未読]
【52128】Re:ファイル読込をして読込んだファイル名... Jaka 07/10/22(月) 16:54 発言[未読]

【52127】ファイル読込をして読込んだファイル名を...
質問  なおちん  - 07/10/22(月) 14:56 -

引用なし
パスワード
   はじめまして。VBAの初心者です。
ファイル(形式不明)を読込み、シート名にその読込んだファイル名の
拡張子を取った状態で一旦保存させていきたいと思っています。
読取るファイルは Application.GetOpenFilename で選択させ、この時の
ファイル名をシート名に付けていきたいのですが、いまいち良く分かりません。
ご教授お願い致します。
現状のマクロ、下記に貼り付け致します。
記述方法おかしいかも知れませんが、これで読込む事は出来ています。 


Sub ファイル読込()
 
  '読込ファイルの指定
  Dim fName

  fName = Application.GetOpenFilename("すべてのファイル (*.*),*.*")
  If VarType(fName) = vbBoolean Then Exit Sub
   
  'シート内のデータを一括削除
  Cells.Select
  Selection.Delete Shift:=xlUp

  'データ読込(読込開始場所はセルA1)
  With ActiveSheet
  With .QueryTables.Add( _
    Connection:="TEXT;" & fName, _
      Destination:=.Range("A1"))
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 932
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = True
    .TextFileColumnDataTypes = Array(1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
  End With
      
  Range("A1").Select
  MsgBox "読込が終了しました。"
  End With
  
End Sub

【52128】Re:ファイル読込をして読込んだファイル...
発言  Jaka  - 07/10/22(月) 16:54 -

引用なし
パスワード
   >  'データ読込(読込開始場所はセルA1)
>  With ActiveSheet
     .Name = Left(Dir(fName), Len(Dir(fName)) - 4) '拡張子4文字として
>  With .QueryTables.Add( _
>    Connection:="TEXT;" & fName, _

上書き保存は、マクロ記録でもしてください。

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