No.1
- 回答日時:
組み込みダイアログですね?
ファイルを開くダイアログボックスなら以下のマクロで呼び出せます。
Sub hiraku()
Application.Dialogs(xlDialogOpen).Show
End Sub
この回答への補足
ありがとうございます。せっかくなのですが、これだと開くフォルダがその都度変わってしまう可能性がないでしょうか?
一定のフォルダから、ファイル名だけ毎回変わっていく処理なのですが。。
あと、ファイル名を毎回指定したあと、インポートしていく手順も自動化したいのですが、現状のマクロとどう組み合わせたらよいでしょうか。やってみたのですが、うまくいきませんでした。
現状のマクロとは、「開く」から始まってテキストファイルインポートを完了していく手順をマクロ記録しただけのものです。
以下その内容です。
Sub Macro1()
Workbooks.OpenText Filename:="C:\WINDOWS\デスクトップ\フォルダ1\インポート用1.txt", _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
End Sub
No.2
- 回答日時:
質問者:kalmitさんの意図がよくわかってないのでぜんぜん違うかもしれませんが・・・・。
まずエクセルからはじめるのですよね?
そして特定のフォルダから名前を指定したテキストファイルを開く。
それをエクセルにもってこれればいいのですよね?
では以下のではいかがでしょうか?
Sub TEST01()
Dim Inp As Variant
Inp = InputBox("入力してください。", "ファイル名入力", ".txt")
Workbooks.OpenText Filename:="C:\WINDOWS\デスクトップ\フォルダ1\" & Inp, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
Cells.Select
Selection.Copy
ThisWorkbook.Activate
ThisWorkbook.Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Windows(Inp).Activate
ActiveWindow.Close
End Sub
No.3ベストアンサー
- 回答日時:
No1&2です。
InputBoxはやはり使いづらいですね。
変えました。これでどうでしょう?
常にデスクトップ\フォルダ1を開くと思いますのでテキストファイルを選択してください。
Sub TEST02()
ChDir "C:\WINDOWS\デスクトップ\フォルダ1"
Dim strFileName As Variant
strFileName = Application.GetOpenFilename(FileFilter:="テキストファイル (*.txt), *.txt")
If strFileName = "False" Then Exit Sub
Workbooks.OpenText Filename:=strFileName, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
mytxtfile = ActiveWorkbook.Name
Cells.Select
Selection.Copy
ThisWorkbook.Activate
ThisWorkbook.Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks(mytxtfile).Close
End Sub
No.1,2共とても参考になりました。試してみてすごい便利で助かります。。
御礼が遅くなりましたが、本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
バッチファイルが作成できない
-
batファイル処理でのテキストフ...
-
複数テキストファイルをエクセ...
-
windowsへscp
-
ヘルプファイルの翻訳
-
テキスト比較について
-
Sculptris Alpha 6
-
KADOKAWA電撃文庫ってフォーマ...
-
Lubuntuでフォントをインストー...
-
1フォルダに保存できるファイル...
-
【python】pandasでExcel(...
-
Windowsのメモ帳でジョークウイ...
-
FFFTPでサーバに新規フォルダが...
-
バッチファイルで古いフォルダ...
-
ダウンロード不可PDFファイルは...
-
Excel-VBA 撮影日時の取得
-
Webサイト アプリのコンパイル他
-
フォルダ作成用バッチファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のテキストファイルをexcel...
-
Excelでdatファイルを作成??
-
バッチファイルが作成できない
-
batファイル処理でのテキストフ...
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
ファイル名の特定文字だけ削除...
-
CDの曲名をテキストファイルで...
-
VBSでテキストファイルのタブ区...
-
CADでグラフ作成
-
KADOKAWA電撃文庫ってフォーマ...
-
windowsへscp
-
文字の頭文字順に自動移動
-
マクロでメモ帳に貼り付け
-
powershell で出力したテキスト...
-
ExcelVBA テキストファイルから...
-
Atokのユーザー辞書に、複数の...
-
インデザインのテキスト流し込み
-
複数テキストファイルをエクセ...
おすすめ情報