【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件

タイトルの件、下記のマクロについて

指定のファイルが、エクセルのBook1のSheet1ではなく
webアドレスにて指定された、CSVファイル（エクセルで開いている）
を、下記のマクロにて印刷したいと思います。

イメージはエクセルファイルにある下記マクロから
別でWebアドレス指定にて開いたCSVファイルを
下記コードにて印刷をしたいです。

ご存じの方、よろしくお願い致します。

【アドレス】
https://xxxxxxxxxxxxxxxxxxxxx.do


※上記は勝手に作ったアドレスです。本物ではありません。
※CSVファイルが上記アドレスにて開いています。
※エクセルのソフトで開いています


【マクロ内容】
対象：エクセルのBookのSheet1
ページ設定を横向き
倍率79％
ページ指定１ページのみ
印刷する

下記コードは動きます


【コード】

SSub 列幅自動調整倍率84_1ページのみ印刷()

With Workbooks("Book1").Worksheets("Sheet1")


.Cells.EntireColumn.AutoFit

.PageSetup.Zoom = 79

.PageSetup.Orientation = xlLandscape

.PrintOut Preview:=True

.PrintOut From:=1, To:=1


End With

End Sub

End Sub

No.1 回答者： googoo900 回答日時： 2023/02/19 15:42

現在のブックに新規ワークシートを追加して、csvファイルを読み込むようにしました。

追加する構文のアドレスのhttps://xxxxxxxxxxxxxxxxxxxxx.doは修正が必要です。
CSVの読み込み方をタブ区切りにしていますので、そうでない場合は修正が必要になる可能性があります。

*変更内容
Sub 列幅自動調整倍率84_1ページのみ印刷()
　◆　ここに下記の<<追加>>の構文を追記する
With Workbooks("Book1").Worksheets("Sheet1")　　⇒　◆削除
With Activesheet　　　　　　　　　　　　　　　　⇒　◆追加
以降は原文と同じ（必要に応じて修正）


<<追加>>
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;https://xxxxxxxxxxxxxxxxxxxxx.do"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With