「メソッドまたはデータメンバが見つかりません」というエラーが出ています。
windowsVISTAでACCESS2007を使っています。
windowsXPでACCESS2003でも同じエラーが出ます。
ソースは下記になります。
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
MsgBox "ファイル名は" & OpenFileName & "です"
End Sub
「.GetOpenFilename」が反転して、エラーになります。
かれこれ2時間格闘してますが、全く原因がわかりません(T-T)
どうかよろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
こんにちは。
ACCESS VBAなんですよね?
ACCESS VBAにGetOpenFilenameメソッドってありましたか?
>「.GetOpenFilename」が反転して、エラーになります。
ということなので、多分そうだと思います。
以下のようにしてみてはどうでしょう。
Sub Test()
Dim OpenFileName As String
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
OpenFileName = xlApp.GetOpenFilename("Microsoft Excelブック,*.xls")
MsgBox "ファイル名は" & OpenFileName & "です"
Set xlApp = Nothing
End Sub
No.1さんのリンク先にある参照設定をしないで、エクセルのメソッドを使ってるだけなんですけどね。
お礼が遅くなってすみません。
AccessにGetOpenFilenameメソッドはないのですね・・・
ネットで検索してそのままコピペして使っていたので、全く気が付きませんでした。
教えていただいた方法でうまくいきました!
とても勉強になりました。
ありがとうございました。
No.4
- 回答日時:
ANo.2です。
ACCESS…
ごめんなさい単純ミスかと思ってました。
Application.のところがWizHook.
-------------------------------------------------------
Sub Sample()
Dim OpenFileName As String
OpenFileName = WizHook.GetOpenFilename("Microsoft Excelブック,*.xls")
MsgBox ("ファイル名は" & OpenFileName & "です")
End Sub
またまたありがとうございます!
色んな方法があるのですね・・・
まだまだ勉強不足です。
とても助かりました。
ありがとうございました!
No.2
- 回答日時:
一行目に、関数(メソッド)がありません
MsBoxに()がありません
-------------------------------------------------------
Sub Sample()
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
MsgBox ("ファイル名は" & OpenFileName & "です")
End Sub
ありがとうございます。
すみません、1行目はコピペのミスです(汗)
msgboxの()はつけましたが、msgboxまで行く前の段階でエラーになっています(>_<)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
「メソッドまたはデータメンバが見つかりません。」というエラーが出ます。
その他(データベース)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
-
4
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
5
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
6
GetOpenFilename メソッドについて
Visual Basic(VBA)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
Access2003 メソッドまたはデータメンバが見つかりません
Visual Basic(VBA)
-
9
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
10
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
11
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
12
Accessでフォームから別フォームのテキストボックスの値を設定する
Visual Basic(VBA)
-
13
accessのレポートを20行固定にする方法
Access(アクセス)
-
14
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
15
アクセスでテーブルの変更内容をフォームに反映させるには?
その他(データベース)
-
16
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
17
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
18
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
19
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
20
アクセスでの項目追加について(アクセス初心者です)
SQL Server
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 印刷プレビューでの...
-
マイクロソフト アクセス2021の...
-
Accessのテキストボックスの入...
-
Accessのことで教えてください...
-
accessデータを指定したExcel、...
-
accessのフォームに設置したボ...
-
ACCESS VBA でのエラー解決の根...
-
Microsoft365にAccessってあり...
-
Access Error3061 パラメータが...
-
【至急・画像あり】建物or住所...
-
Accessレポートのチェックボッ...
-
AccessのDBを理解するコツは?
-
テーブルとクエリの相関図は表...
-
アクセスで、スマホサイズのフ...
-
Accessのデータ型の日付/時刻型...
-
アクセス フォームの自動入力
-
Accessでセレクタをダブルクリ...
-
実行時エラー3131 FROM 句の構...
-
access2019 チェックボックスと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
get() と find() の違いについて
-
A1の値をファイル名に指定した...
-
エクセルVBA オートフィルタで...
-
エラー「メソッドまたはデータ...
-
VBAで型が一致しないエラー(バ...
-
教えてください。vb5.0
-
Csvファイルの最終行を取得する...
-
try ~ catch構文が使えない
-
実行時エラー450:引数の数が一...
-
RubyでバイナリデータをIOスト...
-
メソッド定義の構文のdefって
-
rubyのメソッドについて
-
【Ruby on Rails】モデルのメソ...
-
Ruby on Rails 「attr_accessor...
-
COMコンポーネントの構造の本質...
-
Rails4でJSONのParseErrorを判定
-
Pythonでcall_user_funcを行う
-
【C++】DxlibのLoadgraph()を使...
-
正規表現で両端に文字列を置換
-
スレッドとコンテナ
おすすめ情報