Heim  >  Artikel  >  Software-Tutorial  >  VB6-Tutorial: ACCESS-Datenbank in eine EXCEL-Tabelle exportieren

VB6-Tutorial: ACCESS-Datenbank in eine EXCEL-Tabelle exportieren

PHPz
PHPznach vorne
2024-01-23 21:12:161240Durchsuche

VB6-Tutorial: ACCESS-Datenbank in eine EXCEL-Tabelle exportieren

So exportieren Sie die ACCESS-Datenbank mit VB6 in eine EXCEL-Tabelle

VB selbst bietet Automatisierungsfunktionen, die Excel-Tabellen lesen und schreiben können. Die Methode ist wie folgt:

1. Verweisen Sie auf die Microsoft Excel-Typbibliothek im Projekt:

Wählen Sie im Menü „Projekt“ die Spalte „Referenz“ aus; wählen Sie „Microsoft Excel 9.0-Objektbibliothek (EXCEL2000)“ und dann „OK“. Gibt an, dass im Projekt auf die EXCEL-Typbibliothek verwiesen werden soll.

2. Definieren Sie das EXCEL-Objekt während des Deklarationsprozesses des allgemeinen Objekts:

XLApp als Excel-Anwendung dimmen

XLBook als Excel.WorkBook dimmen

XLSheet als Excel-Arbeitsblatt dimmen

3. Allgemeine Befehle zum Bedienen von Excel-Tabellen im Programm:

Set xlApp = CreateObject("Excel.Application") 'EXCEL-Objekt erstellen

Set xlBook = xlApp.Workbooks.Open ("Dateiname") 'Öffnen Sie die vorhandene Excel-Arbeitsmappendatei

xlApp.Visible = True 'Legen Sie das EXCEL-Objekt so fest, dass es sichtbar (oder unsichtbar) ist

Set xlSheet = xlBook.Worksheets("sheet name") 'Aktives Arbeitsblatt festlegen

xlSheet.Cells(row, col) =value 'Wert der Zelle (Zeile, Spalte) zuweisen

xlSheet.PrintOut 'Arbeitsblatt drucken

xlBook.Close (True) 'Arbeitsmappe schließen

xlApp.Quit 'EXCEL-Objekt beenden

Set xlApp = Nothing 'XLApp-Objekt freigeben

xlBook.RunAutoMacros (xlAutoOpen) 'EXCEL-Startmakro ausführen

xlBook.RunAutoMacros (xlAutoClose) 'Excel-Schließmakro ausführen

4. Wenn Sie die oben genannten VB-Befehle zum Bedienen der Excel-Tabelle verwenden, kann das VB-Programm weiterhin andere Vorgänge ausführen, Excel schließen und gleichzeitig Excel ausführen, es sei denn, das Excel-Objekt ist auf „unsichtbar“ eingestellt. Wenn das Excel-Objekt jedoch während des Excel-Vorgangs geschlossen wird, kann das VB-Programm nicht wissen, ob das Excel-Objekt zu diesem Zeitpunkt verwendet wird, und das VB-Programm generiert einen Automatisierungsfehler. Dies führt dazu, dass das VB-Programm Excel nicht vollständig steuern kann, was dazu führt, dass VB von Excel getrennt wird.

So verwenden Sie VC zum Lesen der EXCEL-Tabelle ⑴ Richter 颍涑

EXCEL ist eigentlich eine Datenbank, und die Zeilen sind die Elemente der Datenbanktabelle. Sie können den Code umkehren und durch Lesen ersetzen.

_ConnectionPtr m_pConnect; //ADO-Objekt, das gleiche unten

_RecordsetPtr m_pRecordset;

CString sql;

sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";

sql+=strExcelFile;//Absoluter Pfad der Excel-Datei + eigener Dateiname.

sql+=";Erweiterte Eigenschaften=Excel 8.0";

m_pConnect.CreateInstance(__uuidof(Connection));

m_pRecordset.CreateInstance(__uuidof(Recordset));

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

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

adOpenDynamic, adLockOptimistic,adCmdText);//[iomstats] ist der geänderte Name von [Blatt] in der unteren linken Ecke von Excel.

while(!m_pRecordset->adoEOF)

{

//Zeile ändern

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();

So lesen Sie Excel-Daten in VB und speichern sie in einem Array

Excel-Tabelle lesen und schreiben:

1. Verweisen Sie auf die Microsoft Excel-Typbibliothek im Projekt:

Wählen Sie im Menü „Projekt“ die Spalte „Referenz“ aus; wählen Sie „Microsoft Excel 12.0-Objektbibliothek (EXCEL2007)“ und dann „OK“. Gibt an, dass im Projekt auf die EXCEL-Typbibliothek verwiesen werden soll.

2. Definieren Sie das EXCEL-Objekt während des Deklarationsprozesses des allgemeinen Objekts:

XLApp als Excel-Anwendung dimmen

XLBook als Excel.WorkBook dimmen

XLSheet als Excel-Arbeitsblatt dimmen

3. Allgemeine Befehle zum Bedienen von Excel-Tabellen im Programm:

Set xlApp = CreateObject("Excel.Application") 'EXCEL-Objekt erstellen

Set xlBook = xlApp.Workbooks.Open ("Dateiname") 'Öffnen Sie die vorhandene Excel-Arbeitsmappendatei

Set xlBook = xlApp.Workbooks.Add("Dateiname") 'Erstellen Sie eine neue Excel-Arbeitsmappendatei

xlApp.Visible = True 'Legen Sie das EXCEL-Objekt so fest, dass es sichtbar (oder unsichtbar) ist

Set xlSheet = xlBook.Worksheets("sheet name") 'Aktives Arbeitsblatt festlegen

für i=1 bis 100

für j=1 bis 50

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

nächstes

nächstes

xlBook.Close (True) 'Arbeitsmappe schließen

xlApp.Quit 'EXCEL-Objekt beenden

Set xlApp = Nothing 'XLApp-Objekt freigeben

Zhang Zhichen

Wie man Excel Zeile für Zeile mit VB liest

1. Erstellen Sie zunächst ein Excel-Objekt in VB, um auf die Excel-Datei zuzugreifen. Öffnen Sie sie einfach und lesen Sie sie im Txt-Textmodus

2. Erstellen Sie ein Button-Ereignis und übergeben Sie die erhaltenen Daten an die TextBox.

Beziehen Sie sich auf den folgenden Code:

Bedingungen: Ich habe eine Excel-Datei D:A.xls mit 100 Wörtern beginnend bei A1 in Sheet1; in VB gibt es eine TextBox namens Text1 in Form1 und eine Schaltfläche namens Command1:

Privates i als Ganzzahl

Private Sub Command1_Click()

Setzen Sie ExcelApp = CreateObject("Excel.Application")

Setzen Sie ExcelBook = ExcelApp.Workbooks.Open("D:A.xlsx")

Setzen Sie ExcelSheet = ExcelBook.Worksheets("Sheet1")

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

i = i + 1

Wenn i > 100, dann ist i = 1

End Sub

Private Sub Form_Load()

i = 1

End Sub

Ich hoffe, es hilft dir!

Das obige ist der detaillierte Inhalt vonVB6-Tutorial: ACCESS-Datenbank in eine EXCEL-Tabelle exportieren. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Stellungnahme:
Dieser Artikel ist reproduziert unter:docexcel.net. Bei Verstößen wenden Sie sich bitte an admin@php.cn löschen