Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34468 / 76738 ←次へ | 前へ→

【47479】VBAからファイルを開く
質問  yhar  - 07/3/12(月) 9:18 -

引用なし
パスワード
   いつもお世話になっております。またまた質問ですがよろしくお願いします。
複数の人が作成する日々の報告書を管理者が集計する為のプログラムを作っています。
処理は1日単位でファイル名は特定のフォルダに必ず日付を現す「07-03-11*.xls」と言う名前で保存されていると言うのがルールです。
過去ログなどから、複数のファイルを開く事までは出来そうなのですが、
●特定のフォルダを指定するにはどうしたらよいか?
●「07-03-11*.xls」と言うファイルのみをダイアログに表示させる事は出来ないか?
と言うのが質問の主旨です。

以下は、ここまで作成したプログラムです。何卒ご教示のほどを!

Sub 集計()
'各自が作成した日報の記録ファイルを指定した日付を元に開いて決められた処理をする。

Dim MyDate As String
Dim FileNam As String
Dim FName As Variant
Dim x As Variant

MyDate = InputBox("処理する日付をYYMMDDの形式で入力してください。")
If MyDate = "" Then Exit Sub
If Len(MyDate) <> 6 Then
  MsgBox ("入力形式が間違っています。YYMMDDの形式で入力し直してください。")
  Exit Sub
End If
MyDate = Left(MyDate, 2) & "/" & Mid(MyDate, 3, 2) & "/" & Right(MyDate, 2)
If IsDate(MyDate) = False Then
  MsgBox ("入力は日付のデータです。YYMMDDの形式で入力し直してください。")
  Exit Sub
End If

MyDate = Left(MyDate, 2) & "-" & Mid(MyDate, 4, 2) & "-" & Right(MyDate, 2)
FileNam = MyDate & "*.xls"

'SendKeys "07-03-11*.xls"
FName = Application.GetOpenFilename(FileFilter:="xls ファイル (*.xls), *.xls", MultiSelect:=True)

'MsgBox (VarType(FName))    'VarType(FName)の戻り値確認用のデバグ道具
'GoTo 正常処理

If VarType(FName) = 8204 Then GoTo 正常処理   'ファイルが選択されている時の関数 VarType(FName)の戻り値は「8204」となるので…
If FName = False Then
  MsgBox ("ファイルが選択されなかったので、何もしません。")
  Exit Sub
End If

正常処理:
For Each x In FName
  MsgBox (x)
  Workbooks.Open Filename:=x
  'ここに一連の処理プログラムを挿入する。
Next
End Sub

2 hits

【47479】VBAからファイルを開く yhar 07/3/12(月) 9:18 質問
【47483】Re:VBAからファイルを開く とおりすがり 07/3/12(月) 10:59 発言
【47485】Re:VBAからファイルを開く yhar 07/3/12(月) 11:22 質問
【47486】Re:VBAからファイルを開く Jaka 07/3/12(月) 11:31 発言
【47497】【複数ファイル選択は?】VBAからファイル... yhar 07/3/12(月) 16:22 質問
【47498】Re:【複数ファイル選択は?】VBAからファイ... ウッシ 07/3/12(月) 16:46 回答
【47500】Re:VBAからファイルを開く Hirofumi 07/3/12(月) 18:58 回答
【47503】【Sendkeys?】VBAからファイルを開く yhar 07/3/12(月) 19:42 発言
【47505】Re:【Sendkeys?】VBAからファイルを開く Hirofumi 07/3/12(月) 20:04 回答
【47508】IMEを直前で無効に出来れば… yhar 07/3/12(月) 20:17 発言
【47510】Re:IMEを直前で無効に出来れば… Hirofumi 07/3/12(月) 21:27 発言
【47512】Re:IMEを直前で無効に出来れば… Hirofumi 07/3/12(月) 22:07 回答
【47522】皆さんありがとうございました。 yhar 07/3/13(火) 8:33 お礼

34468 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free