以下のコードで実行数すると引数は省略できません。とだけ表示されます。何がよくないのでしょうか。
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
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
5
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
6
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
7
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
8
関数の引数でrangeを指定したとき
Visual Basic(VBA)
-
9
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
10
エクセルでエラーが出て困っています。
Excel(エクセル)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
13
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
14
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
15
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
16
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
17
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
18
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
19
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
20
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
多数のサブディレクトリ内のフ...
-
VBAでワークシートを引数として...
-
拡張子を元に戻す
-
テキストファイルのファイル名...
-
.txtではなく.logの方が良いの...
-
MATLABで行列を配列に格納する方法
-
バッチファイルからVBAに引数を...
-
テキストファイルで提出とは?
-
javaで大量のファイルを読み込...
-
Windowsのバッチファイルを利用...
-
【Excel】 VBAを使って毎回名前...
-
forfilesで検索したファイルを...
-
フォルダを自動作成・移動を複...
-
accessでSQL文を使ってcsvファ...
-
ファイルの最後に文字列挿入
-
COPYコマンドで結合すると余計...
-
OpenCVの正解生成のcreatesamples
-
ファイル名の一部をbatで変更し...
-
EXCEl/VBAで拡張子なしのファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
バッチファイル 複数ファイル...
-
テキストファイルで提出とは?
-
バッチファイルで文字列削除に...
-
Windowsのバッチファイルを利用...
-
テキストファイルのファイル名...
-
ファイルの最後に文字列挿入
-
psqlでエラーログをとりたい
-
forfilesで検索したファイルを...
-
バッチファイルからVBAに引数を...
-
accessでSQL文を使ってcsvファ...
-
MATLABで行列を配列に格納する方法
-
テキストファイルのタブをカン...
-
renameコマンドについて
-
【Excel】 VBAを使って毎回名前...
おすすめ情報