ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

ダウン

Excelワークシートセルにデータを転送する 似ている枝を探す


Striker   (2001-12-13 07:59) [0]

文字列または実数型の変数をEXCELシートの指定されたセルに書き込む方法を教えてください(例があります)。



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect; ExcelApplication.Workbooks.Add( ""、0); ExcelWorkbook.ConnectTo(ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets [1] as _WorkSheet); ExcelWorksheet.Activate ExcelWorksheet.Cells.Item [j、1] .Value:= j-i; ExcelApplication.Visible [0]:= True;



KIR   (2001-12-13 08:32) [2]

キャッチアップの質問がありますが、このXLを正しく閉じる方法は? そして、私は1回の転送を持っています(ただし、Excel "I"から)が機能します。もう一度試してみると、メモリ割り当てエラー...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect;



Striker   (2001-12-13 09:00) [4]

自宅でやってみてくれてありがとう



KIR   (2001-12-13 12:02) [5]

>ペロフ
すでに書いた
およびExcelApplication.Disconnect、
およびExcelApplication.Quit、
およびFreeAndNil(ExcelApplication)...
助けにはならない、ここにコードの一部がある:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add(n、0); // n-ファイル名
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkBook);

{プログラム本体}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect; ExcelWorkbook.Close; ExcelApplication.Disconnect;



Олег Лаукарт   (2001-12-13 13:33) [7]

Delphiの王国でExcelを使用することに関する記事がいくつかあります。



Ынс   (2001-12-13 14:32) [8]

//これをモジュールに追加します
ComObjを使用します。
// ...
VAR
xlApp:バリアント;
DataArray:Variant; //二次元配列はここにあります
rv:実数;
始まる
rv:= 10.56568;
xlApp:= CreateOleObject( "Excel.Sheet"); //作成
xlApp.Application.Visible:= True;

xlApp.Application.Cells [1、2] .Value:= "23456346"; //そう

xlApp.Application.Range ["RealValue1"]。値:= rv; {これを行うことができます:「RealValue1」-「セル」内のセルの名前}

xlApp.Application.Range( "A1:B8")。値:= "範囲を埋めるだけの文字列"; {範囲を1行で埋める}


DataArray:= VarArrayCreate([0,2,0,2]、varVariant); {任意の値を保存するためのタイプオプションの配列を作成}
DataArray [0、0]:= "配列要素";
DataArray [1、0]:= 38754; //また配列要素

{一度に配列全体をリンクに割り当てます...安く、信頼性が高く、実用的に= =)=特にサイズの数千の5行の配列をレポートに転送する必要がある場合...これをforループで行うと、レポートは致命的に生成されます}

xlApp.Application.Range( "A1:C3):= DataArray;

//後世のためにこのファイルを保存=-)
xlApp.SaveAs( "c:\ docs \ reports \ sample1.xls");

DataArray:=未割り当て; //トラックをスイープします
xlApp:=未割り当て; //バングとこれ...
終わり



Striker   (2001-12-15 11:06) [9]

私はここをうろついてウェブサイト(WWW.afalinasoft.com)を見つけましたが、まさにDelphiとExcelの相互作用によるものです。



ページ: 1 全枝

フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

2階





メモリ:0.57 MB
時間:0.022 c
7-22418
ミクル
2001-09-20 09:06
2002.01.08
早急に! プリンタの代わりにコンプ。


6-22283
ユラズ
2001-10-08 11:05
2002.01.08
標準的な方法に加えて、どうやってネットワークプリンタを接続することもできますか?


1-22192
夢想家
2001-12-15 19:34
2002.01.08
Timeから秒を引き出して翻訳する方法


14-22350
ヘッジホッグ
2001-11-04 16:49
2002.01.08
私はここに座って、何もすることはありません!


1-22074
Bb
2001-12-17 21:28
2002.01.08
ヘルプ!!!!





アフリカーンス語 アルバニア語 アラビア語 アルメニア語 アゼルバイジャン語 バスク ベラルーシ ブルガリア語 カタルーニャ語 中国語(簡体字) 中国語(繁体字) クロアチア語 チェコ語 デンマーク語 オランダ語 英語 エストニア語 フィリピン語 フィンランド語 フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 インドネシア語 アイリッシュ イタリア語 日本語 韓国語 ラトビア語 リトアニア マケドニア語 マレー語 マルタ語 ノルウェー語
ペルシア語 ポーランド語 ポルトガル語 ルーマニア語 ロシア語 セルビア スロバキア語 スロベニア語 スペイン語 スワヒリ語 スウェーデン語 タイ語 トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский