|
質問1)
下記のプログラムは、CSVを読み込み、その際に、リネームをして保存します。その保存先は指定できないのでしょうか?また、どう指定すればよろしいでしょうか。例えばデスクトップ上に保存する場合。
質問2)
下記のプログラムを動かしたら、どのファイルを読み込むかどうかのBOXがでてきます。
そこで、「いいえ」を選ぶと、エラーが表示され「F」と呼ばれるEXCELファイルができてしまうのですが、ここでのエラー処理で、何か良い案はないでしょうか・・・・・
どうかお知恵をお貸しください。よろしくお願いたします。
Public Sub onActionCSV()
Dim rFile As Variant
Dim sFile As Variant
Application.EnableEvents = False
rFile = Application.GetOpenFilename
'同じ名前で拡張子を変更
sFile = Left(rFile, Len(rFile) - 4) & ".xls"
ActiveWorkbook.SaveAs Filename:=sFile, _
FileFormat:=xlWorkbookNormal
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
Application.EnableEvents = True
End Sub
|
|