Program Page: 行全体・列全体の指定

カテゴリー名：　［ExcelVBAとOLE　基本概念とセル操作］

関連の解説ページへ戻る

《このページの目次》

• 1.　JScript
  • △　vovXL04.js
• 2.　VBScript
  • △　vovXL04.vbs

1.　JScript

△　vovXL04.js

// 行全体・列全体の指定
var fso;
var ExlApp, wb;
var xlOpenXMLWorkbook = 51;  // xlsx形式
var xlWorkbookNormal = -4143;  // xls形式

fso = WScript.CreateObject("Scripting.FileSystemObject");
try { fso.DeleteFile(fso.GetAbsolutePathName("Book1.xls*")); }
catch(e) {}
ExlApp = WScript.CreateObject("Excel.Application");  // Excelの起動
ExlApp.Visible = true;  // Excelを見える状態に
wb = ExlApp.Workbooks.Add();  // Workbookの新規作成
with (wb.ActiveSheet) {
    Range("A1:E7").EntireRow.Value = "test";
    Range("A8:A9").EntireRow.Value = "8行・9行";
    Cells(3,1).EntireRow.Clear;
    Range("C1").EntireColumn.Clear;
    Cells(7,1).EntireRow.Delete;
}
if (parseFloat(ExlApp.Version) >= 12.0) {  // Excel2007以降(xlsx)
    wb.SaveAs(fso.GetAbsolutePathName("Book1"), xlOpenXMLWorkbook);
} else {  // Excel2003まで(xls)
    wb.SaveAs(fso.GetAbsolutePathName("Book1"), xlWorkbookNormal);
}
ExlApp.Quit();

目次に戻る

2.　VBScript

△　vovXL04.vbs

' 行全体・列全体の指定
Option Explicit
Dim FSO
Dim EXLapp, WBobj
Const xlOpenXMLWorkbook = 51  ' xlsx形式
Const xlWorkbookNormal = -4143  ' xls形式

Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next  ' Book1.xls* が存在しない時はスキップ
FSO.DeleteFile(FSO.GetAbsolutePathName("Book1.xls*"))
Set EXLapp = CreateObject("Excel.Application")  ' Excelの起動
EXLapp.Visible = True  ' Excelを見える状態に
Set WBobj = EXLapp.Workbooks.Add()  ' Workbookの新規作成
With WBobj.ActiveSheet
    .Range("A1:E7").EntireRow.Value = "test"
    .Range("A8:A9").EntireRow.Value = "8行・9行"
    .Cells(3,1).EntireRow.Clear
    .Range("C1").EntireColumn.Clear
    .Cells(7,1).EntireRow.Delete
End With
If CSng(EXLapp.Version) >= 12.0 Then  ' Excel2007以降(xlsx)
    WBobj.SaveAs FSO.GetAbsolutePathName("Book1"), xlOpenXMLWorkbook
Else  ' Excel2003まで(xls)
    WBobj.SaveAs FSO.GetAbsolutePathName("Book1"), xlWorkbookNormal
End If
EXLapp.quit

〜　以上　〜