こんにちは。
> パソコン起動時に
> それぞれのアプリケーションの枠内に
> ひとつずつエクセルを立ち上げるにはどうすればいいでしょうか?
現状は、
スタートアップフォルダにExcelブックへのショートカットを2つ置いてある
と思いますが、
これを取止め、
新たに、VBScriptファイルを作成し、スタートアップフォルダに置く、
という方法を紹介します。
幾つか方法はあるかと思いますが、これでも比較的簡単な方法です。
以下、手順です。
step1■
デスクトップ(仮の作業場所)に[新規作成][テキスト...]テキストファイルを作成します。
step2■
このテキストファイルをメモ帳で開きます。
step3■
メモ帳で開いたテキストファイルに以下のスクリプトを過不足なく貼り付けます。
' ' 〓〓〓〓 スクリプト 〓〓〓〓 この下の行から 〓〓〓〓〓〓〓〓〓〓〓〓〓
' ' VBScript
' ' /// スタートアップから呼出。
' ' /// 2つのExcelブックを開く
' ' /// それぞれ別のアプリケーションで開く/起動
' ' ★要指定 2ヶ所 それぞれ2点
' ' | ブック名の指定は、""ダブルクォート2つの間に、
' ' | ドライブ名から始まり、ファルダパス、ブック名、拡張子、正確に!!
' ' | 第2引数はそれぞれのアプリケーションの水平位置
' ' | (例では、ひとつめのブックは左 0 、ふたつめのブックは右 500)
' ' | アプリケーションの水平位置を変更したくない時は、第2引数に -1 を指定
Option Explicit
WScript.Sleep (100)
' ' ★ ↓ 要修正 ↓ ↓ 要修正 ↓ ★
OpenXlAppWbk "D:\フォルダパス1\ブック名1.xlsx", 0
WScript.Sleep (100)
' ' ★ ↓ 要修正 ↓ ↓ 要修正 ↓ ★
OpenXlAppWbk "D:\フォルダパス2\ブック名2.xlsm", 500
WScript.Sleep (100)
Sub OpenXlAppWbk(sWbkName, nAppLeft)
With CreateObject("Excel.Application")
.Workbooks.Open sWbkName
If nAppLeft >= 0 Then
.WindowState = -4143 ' xlNormal
.Left = nAppLeft
End If
.Visible = True
WScript.CreateObject("WScript.Shell").AppActivate .Caption
End With
End Sub
' ' 〓〓〓〓 スクリプト 〓〓〓〓 この上の行まで 〓〓〓〓〓〓〓〓〓〓〓〓〓
step4■
テキストファイルに貼り付けたスクリプトに必要な修正(書換え)を加えます。★
●2つのブックのファイルパスをフルネームで指定します。(2ヶ所)★
間違いの無いよう、現在使用しているショートカットファイルの[プロパティ]
から[リンク先]をコピーするようにしてください。
●2つのアプリケーションの表示位置を水平座標で指定します。(2ヶ所)★
とりあえず仮に、0 と 500 を指定して書いてあります。
ここではそのままにしておいてstep8で調整する方がやり易いと思います。
step5■
テキストファイルを上書き保存して、メモ帳を終了します。
step6■
デスクトップ上でテキストファイルの名前および拡張子を変更します。
●解り易いような適当な名前に続けて、拡張子を .vbs として確定します。
hogehoge.vbs ←名前の形式イメージ
この時、拡張子を変更したことに由来して、
以下のような警告ダイアログが表示されますが、構わず[はい]を選択します。
| [Window Title]
| 名前の変更
|
| [Content]
| 拡張子を変更すると、ファイルが使えなくなる可能性があります。
|
| 変更しますか?
|
| [はい(Y)] [いいえ(N)]
以下、このテキストファイルをvbsファイルと呼びます。
step7■
※注意!!Excelが開いている場合は、すべて閉じてください。
デスクトップ上のvbsファイルを開くことで、スクリプトを実行します。
この実行結果により、step4の修正作業が正しいかどうかを確認します。
step8■
もし、ブックのファイルパスに間違いがあれば、エラーダイアログが表示され、
| ---------------------------
| Windows Script Host
| ---------------------------
| スクリプト: C:\Users\ユーザー名\解り易いような適当な名前.vbs
| 行: 31
| 文字: 1
| エラー: 'D:\フォルダパス1\ブック名1.xlsx' が見つかりません。ファイル名およびファイルの保存場所が正しいかどうかを確認してください。
|
| 最近使用したファイルの一覧からファイルを開こうとしている場合は、そのファイルの名前が変更されていないこと、移動または削除されていないことを確認してください。
のような内容から、何行めにエラーの原因があるか知ることができます。
vbsファイルをメモ帳で開き直し、正しいファイルパスに書換え、修正してください。
アプリケーションの表示位置を調整したい場合も同様にメモ帳で開いて行います。
一度で決まらない場合はstep7とstep8を繰り返しても構いません。
step9■
vbsファイルの実行結果が期待通りの動作になるよう調整が済んだら、、
stepL■、
デスクトップ上のvbsファイルを切り取り、スタートアップフォルダに貼り付けます。
●今までスタートアップフォルダに置いていたExcelブックへのショートカット2つは削除(移動)します。
手順は、以上です。
Windowsを再起動して動作を確認してください。