ホームページ  >  記事  >  ソフトウェアチュートリアル  >  VB6 チュートリアル: ACCESS データベースを EXCEL テーブルにエクスポート

VB6 チュートリアル: ACCESS データベースを EXCEL テーブルにエクスポート

PHPz
PHPz転載
2024-01-23 21:12:161240ブラウズ

VB6 チュートリアル: ACCESS データベースを EXCEL テーブルにエクスポート

VB6 を使用して ACCESS データベースを EXCEL テーブルにエクスポートする方法

VB自体はEXCELテーブルを読み書きできる自動化機能を提供しており、その方法は次のとおりです。

1. プロジェクト内の Microsoft Excel タイプ ライブラリを参照します:

[プロジェクト] メニューから [参照] 列を選択し、[Microsoft Excel 9.0 Object Library (EXCEL2000)] を選択して、[OK] を選択します。プロジェクト内で EXCEL タイプ ライブラリを参照する必要があることを示します。

2. 一般オブジェクトの宣言プロセス中に EXCEL オブジェクトを定義します:

xlApp を Excel.Application としてディムする

xlBook を Excel.WorkBook としてディムする

xlSheet を Excel.Worksheet としてディム

3. プログラム内で EXCEL テーブルを操作するための共通コマンド:

Set xlApp = CreateObject("Excel.Application") 'EXCEL オブジェクトの作成

Set xlBook = xlApp.Workbooks.Open("ファイル名") '既存の EXCEL ブック ファイルを開きます

xlApp.Visible = True 'EXCEL オブジェクトを表示 (または非表示) に設定します

Set xlSheet = xlBook.Worksheets("シート名") 'アクティブなワークシートを設定します

xlSheet.Cells(row,col) =value 'セル(row,col)に値を代入します

xlSheet.PrintOut 'ワークシートを印刷します

xlBook.Close (True) 'ワークブックを閉じます

xlApp.Quit 'EXCEL オブジェクトの終了

Set xlApp = Nothing 'xlApp オブジェクトを解放します

xlBook.RunAutoMacros (xlAutoOpen) 'EXCEL 起動マクロを実行します

xlBook.RunAutoMacros (xlAutoClose) 'EXCEL 終了マクロを実行

4. 上記の VB コマンドを使用して EXCEL テーブルを操作する場合、EXCEL オブジェクトが非表示に設定されていない限り、VB プログラムは引き続き他の操作を実行し、EXCEL を閉じ、同時に EXCEL を操作できます。ただし、EXCEL 操作中に EXCEL オブジェクトが閉じられた場合、VB プログラムはそれを知ることができないため、この時点で EXCEL オブジェクトが使用されている場合、VB プログラムはオートメーション エラーを生成します。その結果、VB プログラムが EXCEL を完全に制御できなくなり、VB が EXCEL から切断されます。

VCを使ったEXCEL表の見方⑴Yingsu裁判官

EXCEL は実際にはデータベースです。その列はデータベース テーブルの列フィールドであり、行はデータベース テーブルの項目です。ADO を使用してコードを挿入しました。これを逆にして、挿入を読み取りに置き換えることもできます。

_ConnectionPtr m_pConnect; //ADO オブジェクト、以下同様

_RecordsetPtr m_pRecordset;

CString SQL;

sql = "プロバイダ=Microsoft.Jet.OLEDB.4.0;データ ソース=";

sql =strExcelFile;//EXCEL ファイルの絶対パスとそのファイル名。

sql =";拡張プロパティ=Excel 8.0";

m_pConnect.CreateInstance(__uuidof(接続));

m_pRecordset.CreateInstance(__uuidof(レコードセット));

m_pConnect->Open((LPCSTR)sql,""",""",adModeUnknown);

m_pRecordset->Open("select * from [iomstats]", m_pConnect.GetInterfacePtr(),

adOpenDynamic, adLockOptimistic,adCmdText);//[iomstats] は Excel の左下隅にある [シート] の変更された名前です。

while(!m_pRecordset->adoEOF)

{

//行を変更します

if((LPCSTR)_bstr_t(m_pRecordset->GetCollect("times")) == strTime)

{

//_variant_t

ultoa(iomStats.dwNumOfDiskReads,charbuf,RADIX);

m_pRecordset->PutCollect("dwNumOfDiskReads",_variant_t(charbuf));

}

m_pRecordset->MoveNext();

}

m_pRecordset->Update();

m_pRecordset->Close();

m_pConnect->Close();

VB で Excel データを読み取り、配列に保存する方法

EXCEL テーブルの読み取りと書き込み:

1. プロジェクト内の Microsoft Excel タイプ ライブラリを参照します:

[プロジェクト] メニューから [参照] 列を選択し、[Microsoft Excel 12.0 Object Library (EXCEL2007)] を選択して、[OK] を選択します。プロジェクト内で EXCEL タイプ ライブラリを参照する必要があることを示します。

2. 一般オブジェクトの宣言プロセス中に EXCEL オブジェクトを定義します:

xlApp を Excel.Application としてディムする

xlBook を Excel.WorkBook としてディムする

xlSheet を Excel.Worksheet としてディム

3. プログラム内で EXCEL テーブルを操作するための共通コマンド:

Set xlApp = CreateObject("Excel.Application") 'EXCEL オブジェクトの作成

Set xlBook = xlApp.Workbooks.Open("ファイル名") '既存の EXCEL ブック ファイルを開きます

Set xlBook = xlApp.Workbooks.Add("ファイル名") '新しい EXCEL ワークブック ファイルを作成します

xlApp.Visible = True 'EXCEL オブジェクトを表示 (または非表示) に設定します

Set xlSheet = xlBook.Worksheets("シート名") 'アクティブなワークシートを設定します

for i=1 ~ 100

j=1~50の場合

numArr(j,i)=xlSheet.Cells(j, i) '...................................... .. .....

###次### ###次###

xlBook.Close (True) 'ワークブックを閉じます

xlApp.Quit 'EXCEL オブジェクトの終了

Set xlApp = Nothing 'xlApp オブジェクトを解放します

张志成

VB を使用して Excel を 1 行ずつ読み取る方法

1. Excel ファイルにアクセスするには、まず VB で Excel オブジェクトを作成します。Excel が CSV の場合は、必要ありません。Excel を開いて、Txt テキスト モードで読み取るだけです。

2. Button イベントを作成し、取得したデータを TextBox に渡します。

次のコードを参照してください:

条件: Sheet1 に A1 から始まる 100 単語が含まれる Excel ファイル D:\A.xls があり、VB では Form1 に Text1 という名前の TextBox と Command1 という名前のボタンがあります。実装コードは次のとおりです :

プライベート i を整数として使用する

プライベートサブコマンド1_Click()

Set ExcelApp = CreateObject("Excel.Application")

Set ExcelBook = ExcelApp.Workbooks.Open("D:\A.xlsx")

ExcelSheet = ExcelBook.Worksheets("Sheet1")を設定します

Text1.Text = ExcelSheet.cells(i, 1)

i = i 1

i >100 の場合、i = 1

エンドサブ

プライベートサブフォーム_Load()

i = 1

エンドサブ

ぜひお役に立てれば幸いです!

以上がVB6 チュートリアル: ACCESS データベースを EXCEL テーブルにエクスポートの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

声明:
この記事はdocexcel.netで複製されています。侵害がある場合は、admin@php.cn までご連絡ください。