エクセルの一般的な操作方法VBS

エクセルのいくつかの一般的な方法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(14).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.CenterHorizo​​ntally = 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を
 
 

 

おすすめ

転載: www.cnblogs.com/lnd-blog/p/12503364.html