以下のコードで実行数すると引数は省略できません。とだけ表示されます。何がよくないのでしょうか。
Public Sub ブックが開かれているか判定()
Dim wb_txt, wb_Ichiran_Hyou As Workbook
Dim txtSheet, Ichiran_Hyou As Worksheet
Dim buf, buf1 As String
'すでに開いているファイルの名前をあいまい検索にしておく
buf = Dir(ThisWorkbook.Path & "\" & "*テキスト*.xls")
buf1 = Dir(ThisWorkbook.Path & "\" & "一覧表*.csv")
On Error GoTo ErrHdl
Set wb_txt = Workbooks(buf)
Set wb_Ichiran_Hyou = Workbooks(buf1)
MsgBox buf & "," & buf1 & "開かれています。", vbInformation
Set txtSheet = wb_txt.Sheets(1)
Set Ichiran_Hyou = wb_Ichiran_Hyou.Sheets(1)
Call サンプル(txtSheet, Ichiran_Hyou)
Exit Sub
ErrHdl:
MsgBox "ファイルが開かれていません。"
End Sub
Public Sub サンプル(ByVal txtSheet As Worksheet, ByVal Ichiran_Hyou As Worksheet)
MsgBox wb_txt.Name, vbInformation ←表示させたい
コード続く・・・
No.1ベストアンサー
- 回答日時:
Dim txtSheet, Ichiran_Hyou As Worksheet
のように定義すると
txtSheetはVariant型になります。
両方Worksheet型で定義したいなら、
Dim txtSheet As Worksheet, Ichiran_Hyou As Worksheet
のようにするか
Dim txtSheet As Worksheet
Dim Ichiran_Hyou As Worksheet
のようにしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
EXCEL VBA function で、引数のシート名を取得する
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
-
4
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
5
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
8
エクセルでエラーが出て困っています。
Excel(エクセル)
-
9
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
10
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
11
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
14
関数の引数でrangeを指定したとき
Visual Basic(VBA)
-
15
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
16
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
17
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
18
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
19
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
20
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
COPYコマンドで結合すると余計...
-
リモートのファイル存在確認
-
ExcelVBA テキストファイルUNIC...
-
テキストファイルで提出とは?
-
バッチファイル 複数ファイル...
-
多数のサブディレクトリ内のフ...
-
forfilesで検索したファイルを...
-
バッチファイルからVBAに引数を...
-
テキストファイルのタブをカン...
-
VB:Excelのデータを、区切りな...
-
コマンドプロンプトでスペース...
-
Unicode 対応の sed って無いの...
-
日本語名ディレクトリーから日...
-
ファイルを処理中に次の処理に...
-
Windowsのバッチファイルを利用...
-
コマンドプロンプトで指定した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
.txtではなく.logの方が良いの...
-
txtのファイルから編集してもい...
-
バッチファイルで文字列削除に...
-
Windowsのバッチファイルを利用...
-
バッチファイル 複数ファイル...
-
ファイルの最後に文字列挿入
-
テキストファイルのファイル名...
-
psqlでエラーログをとりたい
-
forfilesで検索したファイルを...
-
renameコマンドについて
-
accessでSQL文を使ってcsvファ...
-
コマンドプロンプトでスペース...
-
ファイルを処理中に次の処理に...
-
UWSCでテキストファイルを開い...
-
バッチファイルからVBAに引数を...
おすすめ情報