Zapisz dane w arkuszu kalkulacyjnym Excel za pomocą VBA.
Utworzenie arkusza kalkulacyjnego programu Excel w programie Access pozwala zaoszczędzić czas, gdy trzeba wyeksportować dane do arkusza kalkulacyjnego programu Excel. Visual Basic for Applications (VBA) może być potężnym narzędziem do automatyzacji procesów w aplikacjach Microsoft Office. Dzięki VBA możesz użyć obiektu aplikacji Microsoft Excel do utworzenia arkusza kalkulacyjnego Excel z programu Access. Obiekt aplikacji Excel jest punktem wejścia do reszty modelu obiektu. Eksportuj dane szybciej do programu Excel, zapisując dane bezpośrednio w arkuszu kalkulacyjnym programu Excel.
Krok 1
Uruchom Microsoft Office Access, kliknij „Puste bazy danych” i kliknij przycisk „Utwórz”, aby utworzyć pustą bazę danych. Kliknij kartę „Narzędzia bazy danych” i kliknij „Visual Basic”, aby otworzyć okno Microsoft Visual Basic. Kliknij menu „Wstaw” i kliknij „Moduł”, aby wstawić nowy moduł kodu.
Wideo dnia
Krok 2
Kliknij menu „Narzędzia” i kliknij „Referencje”. Przewiń w dół i zaznacz pole obok „Microsoft Excel
Krok 3
Zacznij od wpisania następującego kodu VBA, aby utworzyć nową procedurę podrzędną:
Private Sub createSpreadSheet()
Krok 4
Kontynuuj, wpisując następujący kod, aby utworzyć trzy nowe obiekty zmiennych, które zostaną użyte do utworzenia arkusza kalkulacyjnego Excel:
Dim newExcelApp As Excel. Podanie. Dim newWbk As Excel. Zeszyt ćwiczeń. Dim newWkSheet As Excel. Arkusz roboczy
Krok 5
Dodaj następujący kod, aby uruchomić program Excel i wyświetlić go:
Ustaw nowyExcelApp = Excel. Podanie
nowa aplikacja Excel. Widoczny = Prawda
Krok 6
Wpisz następujące polecenie, aby dodać nowy skoroszyt i arkusz:
Ustaw newWbk = newExcelApp. Skoroszyty. Dodać
Ustaw newWkSheet = newWbk. Arkusze (1)
Krok 7
Dodaj dane do nowego arkusza kalkulacyjnego, wpisując:
nowy arkusz roboczy. Komórki (1, 1). Wartość = "Nowy arkusz roboczy..."
Krok 8
Zapisz nowy skoroszyt utworzony, wpisując następujący kod:
nowy arkusz roboczy. Zapisz jako („C:\myworksheet.xlsx”)
Krok 9
Edytuj ścieżkę w poprzednim kroku i wpisz wybraną ścieżkę i nazwę pliku.
Krok 10
Wpisz następujące polecenie, aby zakończyć procedurę podrzędną:
Napis końcowy
Krok 11
Naciśnij „F5”, aby uruchomić procedurę i utworzyć nowy arkusz kalkulacyjny Excel.
