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!
