掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Excelの行挿入の方法について (ID：10889)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自分でやった感じではできてるような気がします。 外していたらごめんなさいm(__)m Uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var Excel,ExcelApp,ExcelWB,ExcelWS : Variant; begin try Screen.Cursor := crHourGlass; Excel := CreateOleObject('Excel.Application'); ExcelApp := Excel.Application; ExcelApp.WorkBooks.Open('D:\Book1.xls'); //Excelファイルを指定 ExcelWB := ExcelApp.ActiveWorkbook; ExcelWS := ExcelApp.ActiveSheet; ExcelWS.Range['1:1'].Copy; //現在のシートの1行目をコピー ExcelWB.Sheets['Sheet2'].Range['3:3'].Insert; //Sheet2の3行目に挿入 ExcelApp.Visible := true;//Excelを表示 ExcelWS := UnAssigned; ExcelWB := UnAssigned; ExcelApp := UnAssigned; Screen.Cursor := crDefault; except ExcelApp.DisplayAlerts := False; ExcelApp := UnAssigned; ExcelWB := UnAssigned; ExcelWS := UnAssigned; Excel.Quit; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.