エクセルのマクロについて教えてください。
マクロ
Sub Macro1()
ChDir "C:\Users\〇〇\Desktop\2月04日"
Workbooks.OpenText Filename:="C:\Users\〇〇\Desktop\2月04日\テスト.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 53.25
ActiveWorkbook.SaveAs Filename:="C:\Users\〇〇\Desktop\2月04日\テスト.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
が有ります。
マクロを実行すると指定フォルダ内にあるテキスト「テスト.txt」を呼び込み
指定フォルダ内にエクセル形式「テスト.xlsx」で保存されます。
このコードの「"C:\Users\〇〇\Desktop\2月04日"」の部分を
マクロ実行ブックが保存されているフォルダに変更する方法を教えてください。
よろしくお願いします。
No.1
- 回答日時:
ActiveWorkbook.Path。
但し、エクセルブックファイルをダブルクリックして開いてる場合は上手く行きません。
エクセルを立ち上げて、そこからメーニューの「開く(f)」から目的のエクセルブックを開く必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/04 14:20
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
高圧ケーブルの耐圧試験の時の...
-
祖母が亡くなりました。 金曜日...
-
Androidタブレット スワイプで...
-
MsgBoxがコンパイルエラーにな...
-
好きな人とテスト頑張ってと言...
-
オムロンのCX-ONEについて
-
Excel2010 並べ替えマクロを他...
-
NaOHの化学式の表記についてです。
-
伊豆の踊り子・日本人の感性
-
DHCPを同一セグメントに2台に...
-
テストで0点を取ったあなた。...
-
五木の模擬テスト
-
保育士や幼稚園の先生、また小...
-
携帯サイトでプルダウンメニュ...
-
私はよく妬まれます。 理由は、...
-
自分の悪口言ってるのわかった...
-
何もしてないのに嫌われるって……
-
好きな人が悪口を言われている...
-
才能が1つもない人って病気な...
-
振った元カノの悪口を言う男の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
高圧ケーブルの耐圧試験の時の...
-
MsgBoxがコンパイルエラーにな...
-
大学2年です。入学後1年経って...
-
保育士や幼稚園の先生、また小...
-
祖母が亡くなりました。 金曜日...
-
大学の小テストの採点時、点数...
-
小テストの改ざんについてです...
-
オムロンのCX-ONEについて
-
スーパーのアルバイト面接〈テ...
-
「ショーシャンクの空に」の高...
-
Androidタブレット スワイプで...
-
奨学金をもらっている財団法人...
-
HDDのチェック方法
-
学力・学習力到達度診断テスト...
-
大学のテストでchatgptを使いま...
-
DELL…SMARTショートセルフテス...
-
LANテスターを使わずにLANケー...
-
「テスト」を何か別の言い方あ...
-
テストで0点を取ったあなた。...
-
好きな人とテスト頑張ってと言...
おすすめ情報
回答ありがとう御座います。
ActiveWorkbook.Path
Workbooks.OpenText Filename:="ActiveWorkbook.Path\テスト.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
ActiveWorkbook.Path
Workbooks.OpenText Filename:="ActiveWorkbook.Path\テスト.txt", Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 53.25
ActiveWorkbook.SaveAs Filename:="ActiveWorkbook.Path\テスト.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
とコードを作成しましたがエラーが出て上手く実行出来ませんでした。
解決方法を教えてください
よろしくよろしくお願いします。