|
初投稿します。
マクロ初心者なのですが、CSVファイルをデータの取り込みを使用して、取り込み時、ダイアログをキャンセルすると…
========================================================================
実行時エラー '1004'
外部データ範囲を更新するためのテキストファイルが見つかりません。
テキストファイルが移動または名前が変更されていないことを確認し、再度実行してください。
========================================================================
↑というエラーメッセージが出ます。
どうすれば「キャンセル」をクリックしても、エラーが出ないのでしょうか?
ちなみにコードは書きになります。
========================================================================
Sub Macro2()
Dim fname As String
fname = Application.GetOpenFilename(filefilter:="CSV ファイル(*.csv),*.csv")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fname, _
Destination:= _
ActiveCell)
.Name = "ZR20822"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 5
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
========================================================================
デバックを行うと、下から4行目の「.Refresh〜」の部分が黄色く網掛け状態となります。
よろしくお願いします。
|
|