Erstellen , Zugreifen und das Hinzufügen oder Löschen von Daten in Excel ist alles über Visual Basic 6 möglich . Einige kurze Zeilen Code in Visual Basic wird erreichen die ersten beiden Aktionen . Allerdings ändert Excel-Daten komplizierter und erfordert deutlich mehr Erklärung als möglich in diesem Artikel. Schreiben von Programmen , dies zu tun kann hilfreich sein, wenn der Entwickler braucht, um die Verwendung von Excel für ungeübte Nutzer zu vereinfachen . Mit Visual Basic-Formulare ermöglichen eine Modifikation und Unterricht als könnte in Excel möglich . Anleitung
1

Öffnen Sie die Microsoft Visual Basic 6 Programm "; . Neues Projekt" auf " Datei" und wählen Sie " Standard.EXE " aus der Liste der Vorlagen. Eine neue Form wird auf dem Bildschirm zu öffnen, mit der Bezeichnung " Projekt 1 - Form1 (Form) . " Double - Click dreimal auf dem Command Button -Symbol in der linken Seite , um drei Tasten zum Formular hinzufügen . Speichern Sie das Formular mit einem Dateinamen Ihrer Wahl .
2

Klicken Sie auf "Ansicht" und "Eigenschaften Pages" ( dies kann bereits in der rechten Panel werden zeigt ) , und klicken Sie auf den ersten Schaltfläche auf dem Formular . Im Fenster Eigenschaften ändern doppelklicken Sie auf " Caption " und ändern Sie den Text auf " Öffnen vorhandener Arbeitsblatt . " Die zweite Schaltfläche Beschriftung "Neues Arbeitsblatt . " Repeat -Taste für die dritte , sondern verändern diese Beschriftung zu " Exit". Ziehen die ersten beiden Tasten , so dass sie einander gegenüberliegen . Legen Sie die dritte unter den beiden anderen.
3

auf der " Open Existing Spreadsheet "-Taste doppelklicken. Dadurch ändert sich die Ansicht von "Objekt" auf "Code " und fügt ein neues Verfahren . Geben Sie diese Zeilen genau so, wie sie zwischen dem " Private Sub Command1_Click () " und " End Sub ", die schon da sein sollte erscheinen .

Option ExplicitDim MyExcel As New Excel.ApplicationDim MyWorkbook Als Excel. WorkbookDim MyWorksheet Wie Excel.WorksheetDim Dateinamen als StringFileName = InputBox (" Bitte vollständigen Namen und Ort der Excel-Datei" ) Set MyWorkbook = MyExcel.Workbooks.Open ( FileName ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
< br > 4

auf der "Neues Arbeitsblatt " Doppelklicken Sie auf und geben Sie diese Codezeilen .

Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Tabelle1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
5

Beenden Sie den Code mit einem Doppelklick auf die "Exit "-Taste auf dem Formular und geben Sie diese Zeilen .

MyExcel.QuitEnd
Seite 6

Testen Sie das Programm mit der Taste " F5 . " Wenn es nicht funktioniert , gehen Sie zurück und überprüfen sie den Code. Es muss genau zu sein. Wenn Sie eine Fehlermeldung, dass die vorhandene Datei nicht gefunden werden kann erhalten, überprüfen Sie den Speicherort und stellen Sie sicher, es trat genau . Wenn alles funktioniert , klicken Sie auf " Datei", dann "Make" und folgen ihm durch den Namen, den Sie für das Projekt zu Beginn zugewiesen. Dadurch wird eine ausführbare Version direkt ausgeführt werden können.