|
現在、マイドキュメントフォルダー内にTSVファイルを置いてその中で
*.tsvファイルを読み込んで*.xlsファイルに書き出すマクロを使用しております。
このマクロをマイドキュメントフォルダー内以外でも動作させたく思います。
(現在はマイドキュメントフォルダー内でしか動作しません)
例えば、デスクトップ上にTESTの様な名前のフォルダーを作ってその中で
作業したいということです。
現状のVBAは下記の記述です。
Sub Macro1()
Dim myfile As String
Application.ScreenUpdating = False
myfile = Dir(ThisWorkbook.Path & "\*.tsv")
Do Until myfile = vbNullString
Workbooks.OpenText Filename:=myfile _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8 _
, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), _
Array(15, 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array( _
21, 2)), TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Left$(myfile, Len(myfile) - 4) & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
myfile = Dir()
Loop
Application.ScreenUpdating = True
End Sub
以上、宜しくお願いしますm(_ _)m
|
|