EXCELファイルをシートを指定して開く

EXCELのファイルを開くときシートを指定したい時があります。
　１、ショートカットで開く　　　　　シート名を指定できない
　２、ハイパーリンクで開く　　　　シート名を指定できる
　３、VBSを使用して開く　　　　シート名を指定できる

EXCELファイルを開く.vbs
　Dim objExcel

　Set objExcel = CreateObject("Excel.Application")
　objExcel.Visible = True
　objExcel.Workbooks.Open "ディレクトリを含めたEXCELファイル.xlsx"
　objExcel.Worksheets("シート名").Activate
　objExcel.Range("セル番地").Activate

　Set objExcel = Nothing

Dim objExcel ～ Set objExcel = Nothing までをメモ帳で作成し、EXCELファイル名を開く.vbs　などとして

文字コードを[ANSI]か[UTF-16]で保存する。

Adobe Reader 見開き-右から左へ

日本語縦書きの文章を読みたいとき、見開きで右側を１ページにしたい時がありますよね！。
特に、この頃は大画面モニターを持つ方が多くなりましたから

設定方法は、
メニュー「表示」＞「ページ表示」＞見開きページ表示　にチェックします。　　　　　　　　　　　

左側は、　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　右側は、
メニュー「表示」＞「ページ表示」＞　　　　　　　　　　　　　　メニュー「編集」＞「環境設定」＞
見開きページ表示と見開ページ表示で表紙を表示　　　　「言語」＞デフォルトの読み上げ方向を
にチェックした結果。　　　　　　　　　　　　　　　　　　　　　　　「右から左へ」に設定した結果。
　　　　　　　　　　　
このほうが、日本語縦書きの文章は読みやすいですよね
ただし、Adobe Readerでは、文書ごとにこの設定が保存できないので、その都度変更する必要があります。

VBScriptの文字コードはANSIで保存

久しぶりにVBSを書いて実行したらエラーが出るので顛末をメモしておきます。
１、LAN_DISK接続.vbs

***** NASへの接続 *****

２、main.vbs

　　Option Explicit
　　'起動用のオブジェクトを生成
　　Dim objWsh
　　Set objWsh = WScript.CreateObject("WScript.Shell")
　　'引数を渡してLAN_DISK接続.vbsを実行
　　objWsh.Run "LAN_DISK接続.vbs 192.168.3.12 X: \\ATELIER52-LAN\Work"