いつもお世話になります
人の古いプログラムで標準モジュールから、ユーザフォームのSubroutineを
呼び出しているのですが(Dialog Open)
「オブジェクトが必要です」というエラーが出ます
自分はこんな使い方をしたことがないのでよく分からないので
教えてもらいたく投稿しました。
(標準モジュール)
'**********************************
' ファイルデータ入力
'**********************************
Public Sub ①データ読込み(Optional IsMsg)
With Application
.SheetsInNewWorkbook = 3
End With
'
UserForm1.cmdGetTabFile_Click ' Dialog Open
If IsGetCancel = False Then
Call GetPaste
End If
End Sub
(UserForm1)
Public Sub cmdGetTabFile_Click()
Dim filename As String
IsGetCancel = True
With CommonDialog1
If strInTextDIR = "" Then
strInTextDIR = CurDir
End If
Application.DefaultFilePath = strInTextDIR
.InitDir = strInTextDIR
.CancelError = False
.filename = ""
.Filter = "断面照査データ(*.TXT)|*.TXT|全て|*.*"
.ShowOpen
If .filename = "" Then
Exit Sub
End If
If Dir(.filename) = "" Then
MsgBox "No FIle " & .filename
Exit Sub
End If
TabFileNAME = .filename
IsGetCancel = False
End With
strInTextDIR = getFilePath(TabFileNAME)
End Sub
以上、よろしくお願い申し上げます
No.1ベストアンサー
- 回答日時:
こんにちは
どのような仕組みになっているのか、ご提示の内容だけでは不明ですが・・
普通のプロシージャであれば、ご提示の方法で呼ぶことは可能と思います。
試しに、現状のPublic Sub cmdGetTabFile_Click()を別名にしておいて、
Public Sub cmdGetTabFile_Click()
MsgBox "Test OK"
End Sub
のようなものを追加して、実行してみると実行できませんか?
※ 想像するところ、cmdGetTabFile_Clickはカスタム定義のイベントではないかと思いますが、そちらの定義が関係しているのかも知れません。
上記で実行できない場合は、一旦、イベント設定を外して実行してみれば、とりあえず呼び出せるのではないかと推測します。
(対象のモジュール名が「UserForm1」ではない、というオチでなければ・・)
もし実行できるようなら、呼び出し側の問題ではなく、実行条件等の問題ではないかと推測しますが、内容が不明なのでこれ以上はわかりかねます。
もしも、ご提示のcmdGetTabFile_Clickの内容が、単独実行可能な内容であるなら、現状の内容を別名のプロシージャとして、標準モジュールに新たに設定し、現状のプロシージャを
Public Sub cmdGetTabFile_Click()
Call 新しく作成したプロシージャ
End Sub
として再定義すれば、現状の機能はそのまま維持できるはずです。
その上で、呼び出し側の呼び出し名を「新しく作成したプロシージャ」とすれば実行できるはずですが、多分、原因は別のところにあるのでしょうから、やはりエラーになるのではないかと推測しますけれど・・
こちらの場合であれば、エラー表示の行位置が変わると思いますので、多少は前進になるのではと思います。
いつもお世話様です
中途半端な質問で申し訳ございませんでした
会社の同僚から動かないと言われ
ちょっと見てあげたのですが、別のプログラムを紹介しました
ただし動かない理由を説明したかったので助かりました
ありがとうございました
これからもよろしくお願いいたします
No.2
- 回答日時:
CommonDialog は Microsoft Common Dialog Control 6.0 がインストールされていなければなりません。
https://www.microsoft.com/ja-jp/download/details …
また、CommonDialog は64bitのOfficeでは動作しません。
Application.GetOpenFilename() を利用するよう変更してください。
https://learn.microsoft.com/ja-jp/office/vba/api …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel VBAでメールを送る方法について 2 2021/11/03 15:34
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Word(ワード) word_VBA_フォームからダイアログそこからの復帰について 2 2021/12/13 23:44
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) VBA excelからメールを送る方法について 1 2021/11/03 11:30
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Vba Cells.Findについて教えてください
Visual Basic(VBA)
-
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
-
4
Vba ユーザ定義関数について教えてください
Visual Basic(VBA)
-
5
xmlドキュメントから別拡張子で保存したい
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
select case について
Visual Basic(VBA)
-
8
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
9
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
-
10
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
11
VisualStudio2022をマクロみたいに自動プログラムを作成する方法を教えてください。
Visual Basic(VBA)
-
12
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
13
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
14
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
15
VB.NETでボタンのクリックイベントハンドラが2回実行される
Visual Basic(VBA)
-
16
Excel マクロについて
Visual Basic(VBA)
-
17
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
18
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
19
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
20
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel VBAで、ユーザーフォーム...
-
ArduinoのジャイロモジュールMP...
-
Excel VBA 標準モジュール内で...
-
エクセルVBAでシートモジュール...
-
VBAで別モジュールへの変数の受...
-
VBAのバージョン管理
-
pythonでファイル移動できません。
-
Excel VBA 『Call』で呼び出す...
-
現在アクティブなフォーム名を...
-
Excel VBAでリンク切れをチェッ...
-
VBでグローバル変数を宣言するには
-
モジュールを使わないで画像サ...
-
モジュールとクラスの違いって...
-
vba 標準モジュールインポート...
-
グラフのX,Y座標を取得したい
-
Excelシート内セル記述の違いに...
-
'Range'メソッドは失敗しました
-
フォーム内のテキストボックス...
-
VBのフォームモジュールと標準...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 定義されたプロージ...
-
ArduinoのジャイロモジュールMP...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
Excel VBA 『Call』で呼び出す...
-
エクセルVBAでシートモジュール...
-
モジュールとは何ですか
-
VBA This Workbookモジュール...
-
VBでグローバル変数を宣言するには
-
グラフのX,Y座標を取得したい
-
モジュールの最大数はいくつな...
-
【vba】フォームに書いてあ...
-
VBAで旧字体を異字体に一括で変...
-
Excel VBAで、ユーザーフォーム...
-
Form間の値の渡し方
-
モジュールとクラスの違いって...
-
Access VBA標準モジュールにつ...
-
本当にPublicな変数(配列で)
-
標準モジュールを削除したい。(...
おすすめ情報
いつもお世話様です
CommonDialog1が追加されていないからですかね
その他のコントロール追加で探しても見つからないですね
もう無いのかも?
そこだけ教えてもらっても良いですか?
以上、よろしくお願いいたします