
以下のコードで実行数すると引数は省略できません。とだけ表示されます。何がよくないのでしょうか。
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も見ています
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
EXCEL VBA function で、引数のシート名を取得する
Excel(エクセル)
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
7
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
10
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
13
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
14
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
15
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
16
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
17
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
18
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
19
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
20
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
バッチ処理でファイルの中身を...
-
多数のサブディレクトリ内のフ...
-
psqlでエラーログをとりたい
-
ファイルの最後に文字列挿入
-
バッチファイル 複数ファイル...
-
バッチファイルの修正箇所を教...
-
iPhone版Dropboxからtxtファイ...
-
拡張子を元に戻す
-
NOTEPAD.EXEが見つかりません。
-
WinAPI SHGetFileInfoでICONフ...
-
MATLABで行列を配列に格納する方法
-
ファイルの入出力
-
VBファイルを0KBにする方法
-
【エクセルVBA】エクセルからテ...
-
検索CGIでいいのを知りませんか?
-
フォルダーの中のファイルを数...
-
テキストファイルで提出とは?
-
fortran90 ファイル出力の名前
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
.txtではなく.logの方が良いの...
-
VBAでワークシートを引数として...
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
バッチファイル 複数ファイル...
-
psqlでエラーログをとりたい
-
ファイル内容の修正、行削除に...
-
バッチファイルで文字列削除に...
-
テキストファイルで提出とは?
-
拡張子を元に戻す
-
ファイルの最後に文字列挿入
-
UWSCでテキストファイルを開い...
-
エクセルの各セルの内容をそれ...
-
ファイル名の一部をbatで変更し...
-
renameコマンドについて
-
accessでSQL文を使ってcsvファ...
-
3つ以上のテキストファイルをコ...
-
Windowsのバッチファイルを利用...
-
ファイルのワイルドカードについて
おすすめ情報