エクセルのいくつかの一般的な方法VBSコントロール: :メソッド最初のExcelオブジェクトを作成して動的に作成する()使用は、ComObj使用 oExcel = のCreateObject(「まずExcel.Application 」) 1 oExcel.Visible =)を示し、現在のウィンドウ真 2)Excelのタイトルを変更しますコラム:oExcel.Captionは= " アプリケーションは、Microsoft Excelの呼び出しを" 3 oExcel.Workbooks.Add:新しいブックを追加します。) 4を既存のブックを開くために):oExcel.WorkBooks.Open(" C:\エクセル\ Demo.xls " ) 5)アクティブシートに第二のシートを設定:oExcel.WorkSheets(2)または.Activate oExcel.WorksSheets(" シート2 " ).Activate 6)セルに割り当てられた:oExcel.Cells(1、4).Valueの= " 4行の最初の列" 7は、一例として、最初の列に、文字の数):)指定された列の幅を(設定oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 。8) (1ポンド=:指定された行(LB単位)の高さを設定0:0.035センチメートル)、実施例の2行目にoExcel.ActiveSheet.Rows(2)= .RowHeight 1 / 0.035 ' 1 cmである。 9行に前)8挿入改ページ:(oExcel.WorkSheets 。1)(.Rows 。8)= .PageBreak 1。 10)前ページ区切り列を削除する8:oExcel.ActiveSheet.Columns(4).PageBreak = 0 。11)指定された境界線の幅:oExcel .ActiveSheet.Range(" B3:D4 ").Borders(2).Weight = 3
1- 2-左下と右上は4-5- 3-斜め(\)6-斜め(/)
12)細胞式の最初の列の4番目の行を削除:
oExcel.ActiveSheet.Cells(1,4).ClearContents
13であります)フォント属性の最初の行:
。oExcel.ActiveSheet.Rows(1).Font.Name = "公式スクリプト"
oExcel.ActiveSheet.Rows(1).Font.Color = clBlue。
oExcel.ActiveSheet.Rows(1).Font.Bold。真=
oExcel.ActiveSheet.Rows(1)=真.Font.UnderLine
)14ページを設定:
Aヘッダ:.
oExcel.ActiveSheet.PageSetup.CenterHeader = "報告書は示している"
Bフッター:.
oExcel.ActiveSheet.PageSetupを。 CenterFooter = "ページ&Pの"
上部マージン2cmまでCヘッダー:
oExcel.ActiveSheet.PageSetup.HeaderMargin = 2 / 0.035
端側縁におけるDフッター3センチメートル:.
。oExcel.ActiveSheet.PageSetup.HeaderMargin = 3 / 0.035
Eトップマージンさ2cm:
oExcel.ActiveSheet.PageSetup.TopMargin = 2 / 0.035
Fボトムマージンさ2cm .:
= 2 oExcel.ActiveSheet.PageSetup.BottomMargin / 0.035
G 2センチメートルから左:.
oExcel.ActiveSheet.PageSetup.LeftMargin = 2 / 0.035
H右マージンさ2cm:
oExcel.ActiveSheet.PageSetup.RightMargin = 2 / 0.035
Iページが水平中心。 :
oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2 / 0.035j垂直中心ページ:.
oExcel.ActiveSheet.PageSetup.CenterVertically = 2 / 0.035
K印刷ユニットグリッド線:.
oExcel.ActiveSheet.PageSetup.PrintGridLines =真
15)コピー操作:ワークシート全体:.のコピー
oExcel.ActiveSheet.Used.Range.Copyb指定されたコピー領域:.
oExcel.ActiveSheet.Range(「A1:のE2」)。コピー
Cペースト開始位置A1 :.から
oExcel.ActiveSheet.Range(。 「A1」)PasteSpecial。
ファイルの終わりからDペースト:.開始
oExcel.ActiveSheet.Range.PasteSpecial
行または列インサート16):
a.oExcel.ActiveSheet.Rows(2).Insert
b.oExcel.ActiveSheet.Columns(1).Insert
。:17)は、行または列削除
a.oExcel.ActiveSheet.Rows(2).Delete
b.oExcel.ActiveSheet.Columns(1).Delete。
18である)プレビューワークシートを印刷します。
oExcel.ActiveSheet.PrintPreview
19)印刷のワークシート:
oExcel.ActiveSheet.PrintOut
ワークシートの保存20):
ifnotoExcel.ActiveWorkBook.SavedthenoExcel.ActiveSheet.PrintPreview
:21)として保存されたワークシート
oExcel.SaveAs(「C:\エクセル\ DEMO1 .XLS「)
22)保存あきらめる:
oExcel.ActiveWorkBook.Saved真=
23)は、ブックを閉じます。
oExcel.WorkBooks.Close
:24)エクセル終了
oExcel.Quitを