Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68783 / 76738 ←次へ | 前へ→

【12482】Re:ファイル間の変数の受け渡し
回答  ichinose  - 04/4/6(火) 0:53 -

引用なし
パスワード
   かとちゃん さん、shousukeさん
こんばんは。

>基本的な質問かもしれないのですが・・・
>
>Excelではファイル間の変数の受け渡しはできるのでしょうか?
        ↑これ、「ブック間」ですね!!
>ファイルAで
> Public Const BaseDir As String = "abcde"
>と定義した変数をファイルBで受け取ることはできるのでしょうか?
それからConstは、変数ではなく、定数ですよ!!

いくつか方法はあると思います。

shousukeさんがおっしゃっている
「セルを媒体にして値を受け取る」というのも方法のひとつだと思います。

他には、

1.ブックBでApplication.Runメソッドを使用する

ブックAの標準モジュールに
'=========================================
Public Const BaseDir As String = "abcde"
'=========================================
Function get_BaseDir()
  get_BaseDir = BaseDir
End Function
  
としておいて、
ブックBでは、
'=====================
Sub test()
  MsgBox Application.Run("ブックA!get_basedir")
End Sub

とする方法。


2.オブジェクトモジュールを使用する方法

ブックAの標準モジュールに
'=========================================
Public Const BaseDir As String = "abcde"

'(Public Constは、オブジェクトモジュールでは宣言できないので)

ブックAのThisWorkbookモジュールに
'=============================================
Function get_BaseDir()
  get_BaseDir = BaseDir
End Function


としておいて、
ブックBでは、
'=====================
Sub test()
  MsgBox Workbooks("ブックA").get_BaseDir
End Sub

とする方法。


3.ブックBでブックAを参照設定する方法

参照設定については、

http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=11001;id=Excel

を参考にして下さい。

この場合、ブックBでは、
'=====================
Sub test()
  MsgBox BaseDir
End Sub

と直接参照できます。

確認してみて下さい。

0 hits

【12478】ファイル間の変数の受け渡し かとちゃん 04/4/5(月) 18:06 質問
【12480】Re:CellsのSelect範囲の問題について shousuke 04/4/5(月) 22:53 回答
【12488】ありがとうございました かとちゃん 04/4/6(火) 12:03 お礼
【12482】Re:ファイル間の変数の受け渡し ichinose 04/4/6(火) 0:53 回答
【12489】2 ができました かとちゃん 04/4/6(火) 12:13 お礼
【12529】Re:2 ができました ichinose 04/4/6(火) 22:39 発言
【12531】何度もありがございます かとちゃん 04/4/6(火) 22:49 回答
【12533】Re:何度もありがございます ichinose 04/4/7(水) 0:02 発言
【12571】週末に・・・ かとちゃん 04/4/7(水) 19:16 発言
【13062】Re:何度もありがございます かとちゃん 04/4/22(木) 12:01 発言
【13086】Re:何度もありがございます ichinose 04/4/22(木) 18:33 発言
【13092】Re:何度もありがございます かとちゃん 04/4/22(木) 23:05 お礼

68783 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free