| |
こんにちは。はじめまして。
どなたか教えてください(^-^)
1.複数のcsvブックを開き、activebook（シートは１枚のみ）に追加したい。
追加されるシートの順序はこだわりません。
開きたい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
|
|
すま
- 05/11/21(月) 15:29 -
