人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

実装方法のヒントを下さい:エクセルデータαを作成し、エクセルデータαにあるマクロ機能からエクセルデータβを起動したいと考えています。
このエクセルデータβでは、エクセルデータαの値を参照し計算処理を行い、エクセルデータαではその計算結果をコピーして結果を表示します。

エクセルデータβには簡単な計算式やマクロなどが設定されており、
エクセルデータαの値を用い計算処理をします。

知りたい点は、、、

?エクセルからエクセルを開くコマンドを作れるか?
?エクセルからVBA付きエクセルファイルを開くとき、ウイルス警告がでるか?
?エクセルデータβからαの値を参照する方法
?エクセルデータβの値をαにコピーする方法

です。


●質問者: harunoharuno
●カテゴリ:コンピュータ
✍キーワード:VBA ウイルス エクセル コピー コマンド
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●400ポイント ベストアンサー

?エクセルからエクセルを開くコマンドを作れるか?

こんな感じでエクセルデータβ.xlsに記述し、エクセルデータα.xlsを開きます。

Sub WorkBookOpen()
 Dim pass As String
 pass = ThisWorkbook.Path & "/エクセルデータα.xls"
 If Dir(pass) <> "" Then
 Workbooks.Open pass
 Else
 MsgBox "ファイルが存在しません。", vbExclamation
 End If
End Sub

http://q.hatena.ne.jp/

?エクセルからVBA付きエクセルファイルを開くとき、ウイルス警告がでるか?

セキュリティの警告はでません。


?エクセルデータβからαの値を参照する方法

こんな感じでできます。ただし、エクセルデータα.xlsが開いていなければなりません。

Sub AlfaValue()
 MsgBox Workbooks("エクセルデータα.xls").Worksheets(1).Range("A1").Value
End Sub

?エクセルデータβの値をαにコピーする方法

この場合も開いていないとエクセルデータα.xlsにアクセスできないので?の方法で開いてください。

Sub AlfaCopy()
 Workbooks("エクセルデータα.xls").Worksheets(1).Range("A1").Value = Range("A1").Value
End Sub
◎質問者からの返答

ありがとうございます。とても参考になります。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ