Heim > Artikel > Software-Tutorial > VB6-Tutorial: ACCESS-Datenbank in eine EXCEL-Tabelle exportieren
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.
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();
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
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!