ホームページ > 記事 > ソフトウェアチュートリアル > 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裁判官
_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 データを読み取り、配列に保存する方法
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 サイトの他の関連記事を参照してください。