パソコンメモ

PCでいろいろやった技術情報

全てのシートの左上を選択状態に

2008年12月22日 16時06分00秒 | エクセル
'----------------------------------------
' xlsSelectAllSheetA1.vbs
'
'ドロップしたエクセルの
' 全てのシートの左上を選択状態にした後
' 最初のシートを選択状態にして
' 上書き保存します。
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ&ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 強制的に上書きします。
'
Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
xlSht.Range("A1").Activate
Next
xlWb.Worksheets(1).Activate
xlWb.Save
Next
xlApp.Quit
Set xlApp = Nothing

最初のシートの左上を選択した状態に

2008年12月22日 15時33分47秒 | エクセル
'----------------------------------------
' xlsSelectSheet1A1.vbs
'
'ドロップしたエクセルの
' 最初のシートの左上を選択した状態にして
' 上書き保存します。
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ&ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 強制的に上書きします。
'
Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlWb.Worksheets(1).Activate
xlWb.WorkSheets(1).Range("A1").Activate
xlWb.Save
Next
xlApp.Quit
Set xlApp = Nothing