No.1ベストアンサー
- 回答日時:
色々と方法はありますよ。
一例です。
Sub ボタン1_Click()
ChDir ThisWorkbook.Path
Dim vntFileName As Variant
vntFileName = _
Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv" _
, FilterIndex:=1 _
, Title:="開く" _
, MultiSelect:=False _
)
If vntFileName <> False Then
Workbooks.Open Filename:=vntFileName
End If
End Sub
No.3
- 回答日時:
これは、マクロブックと同じパスの、選択されたCSVファイルをシート単位でコピーするプログラム。
そのパスがファイルダイアログのデフォルトになる。ファイルは複数選択できる。
Option Explicit
Sub EasyCopyCSV()
Dim CSV_filename As Variant, target As Variant
Dim CSV_SheetName As Variant
Dim FileCount As Long
Dim kk As Long
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
CSV_filename = Application.GetOpenFilename(filefilter:="CSVファイル(*.csv;*.prn),*.csv;*.prn", MultiSelect:=True)
If IsArray(CSV_filename) Then
Else
MsgBox "キャンセルされました!"
Exit Sub
End If
FileCount = UBound(CSV_filename) '配列のサイズからファイル数を調べる
For kk = 1 To FileCount 'ファイル数カウンタ初期化しファイル数分カウンタを回す
Workbooks.Open CSV_filename(kk) 'ファイルを開く
CSV_SheetName = Worksheets(1).Name '開いたシートの名前=ファイル名を取得
Sheets(CSV_SheetName).Move Before:=ThisWorkbook.Sheets(1)
Next
End Sub
No.2
- 回答日時:
作成例:
sub macro1()
dim myPath as string
dim myFile as string
mypath = thisworkbook.path & "\"
'msgbox mypath
start:
myfile = inputbox("INPUT CSV FILENAME")
if myfile = "" then exit sub
if strconv(right(myfile,4),vblowercase) <> ".csv" then
myfile = myfile & ".csv"
end if
if dir(mypath & myfile) = "" then
msgbox "FILE NOT FOUND"
goto start
end if
workbooks.open mypath & myfile
end sub
ファイルの指定の仕方とかは山ほどバリエーションがありますので、色々勉強してみて下さい。
同様に
>データを取り込めるようにしたい
どこに?どんな具合に?「取り込み」したいのか、具体的にアナタがやりたい事に応じたマクロを書いてやる必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Visual Basic(VBA) マクロを教えてください。 7 2023/06/01 19:47
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のCSVファイルを横に並べて...
-
エクセルの指数を無効にしたい
-
二つのCSVファイルを照らし合わ...
-
「ほかのアプリケーションを無...
-
同じ形のCSVファイルを複数同時...
-
datファイル→csvファイル→datフ...
-
excelインポート時の「実行時エ...
-
EXCELLの動きが遅い
-
破損したExcelファイルの内容を...
-
大量のCSVデータを1つのエ...
-
CSVファイルの結合(重複データ...
-
Excel VBAを使った複数のCSVフ...
-
VBAでCSVの1行目だけを書き換え...
-
【エクセル VBA】CSVファイルの...
-
Accessにエクセルからデータを...
-
エクセルでcsvデータを自動読み...
-
複数個のascファイルを1つ...
-
EXCELにcsv形式の外部データを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のCSVファイルを横に並べて...
-
エクセルの指数を無効にしたい
-
excelインポート時の「実行時エ...
-
CSVファイルの結合(重複データ...
-
VBAでCSVの1行目だけを書き換え...
-
大量のCSVデータを1つのエ...
-
「ほかのアプリケーションを無...
-
複数のcsvファイルを1つのEXCEL...
-
Excel VBAを使った複数のCSVフ...
-
二つのCSVファイルを照らし合わ...
-
EXCELにcsv形式の外部データを...
-
datファイル→csvファイル→datフ...
-
【VBA初心者】同じフォルダ内の...
-
【エクセル VBA】CSVファイルの...
-
EXCELLの動きが遅い
-
複数個のascファイルを1つ...
-
複数のCSVファイルからのデータ...
-
エクセルでcsvデータを自動読み...
-
EACでWAVのCBRからVBRに変更す...
-
EXCELで外部データの取り込みが...
おすすめ情報