|
こんにちは。はじめまして。
どなたか教えてください(^-^)
1.複数のcsvブックを開き、activebook(シートは1枚のみ)に追加したい。
追加されるシートの順序はこだわりません。
開きたいcsvファイルは、activebookと同じフォルダにあります。
こちらの掲示板を参考に一旦書いてみたのですが、
ファイルを選択したあとに、bookには追加されませんでした。
どこに何を追加すればいいのでしょうか?
Sub test6()
Dim vFileName As Variant
Dim sDefaultPath As String, iFileName As String
sDefaultPath = ActiveWorkbook.Path
’ファイルを選択
vFileName = Application.GetOpenFilename( _
fileFilter:=StrConv("CSV ファイル (*.CSV),*.x*," & _
"すべてのファイル (*.*),*.*", vbNarrow), FilterIndex:=1, _
MultiSelect:=True)
'キャンセルされたかチェック(キャンセル時MSG出力)
If VarType(vFileName) = 11 Then
MsgBox "キャンセルされました。"
Exit Sub
End If
End Sub
2.追加されたシート名は、ファイル名が適用されますが、
ファイル名の23文字目以降を適用するということはできますか?
その場合のコードはどうようなものでしょうか?
ご教示よろしくお願いいたしますm(__)m
|
|