Excel VBA質問箱 IV

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

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


12688 / 13646 ツリー ←次へ | 前へ→

【9182】CSV読み込み時に。 テーブル 03/11/20(木) 15:56 質問
【9188】Re:CSV読み込み時に。 りん 03/11/20(木) 17:57 回答
【9191】Re:CSV読み込み時に。 テーブル 03/11/20(木) 18:37 お礼

【9182】CSV読み込み時に。
質問  テーブル  - 03/11/20(木) 15:56 -

引用なし
パスワード
   いつもお世話になっております。
クエリを使ってCSVをEXCELに読み込みます。
その際に、出力させたEXCELのファイル名を
CSVのファイル名と同じファイル名に変更できますでしょうか?
どなたかお知恵をお貸しください。

Sub CSV読み込み()
Dim aFile As Variant
rFile = Application.GetOpenFilename
  With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & rFile, Destination:=Range("A2"))
    .Name = "R123-2-1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = xlWindows
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1)
    .Refresh BackgroundQuery:=False
  End With

End Sub

【9188】Re:CSV読み込み時に。
回答  りん E-MAIL  - 03/11/20(木) 17:57 -

引用なし
パスワード
   テーブル さん、こんばんわ。

>その際に、出力させたEXCELのファイル名を
>CSVのファイル名と同じファイル名に変更できますでしょうか?
>どなたかお知恵をお貸しください。

 出力させる部分がどこかわからないのでなんともいえませんが。

  '同じ名前で拡張子を変更
  sFile = Left(rFile, Len(rFile) - 4) & ".xls"
  ActiveWorkbook.SaveAs Filename:=sFile, _
             FileFormat:=xlWorkbookNormal


こんな感じです。
出力させる部分が別Subの場合、rFileの内容はこのSubが終了したときに無くなってしまうので、他のSubでも使えるようにGlobal宣言しておくか、どこかのセルに格納しておくなどして記憶しておかないと、必ずエラーになります。

【9191】Re:CSV読み込み時に。
お礼  テーブル  - 03/11/20(木) 18:37 -

引用なし
パスワード
   ▼りん さん:
本当にありがとうございました。
出力させる部分が別Subではないので大丈夫でした。
どうも、心配していただきありがとうございます。

>こんな感じです。
>出力させる部分が別Subの場合、rFileの内容はこのSubが終了したときに無くなってしまうので、他のSubでも使えるようにGlobal宣言しておくか、どこかのセルに格納しておくなどして記憶しておかないと、必ずエラーになります。

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