GoldenLine
Zaloguj się
Piotr Nowak

Piotr Nowak Kierownik Projektu
(Project Manager),
Orange Polska

Temat: [Access 2003] eksport do Excela bez nagłówków

Witam,
Jak eksportować tabelę w Accessie do arkusza Excel ale bez nagłówków (nazw) kolumn?
Zdefiniowane makro eksportujące z ustawionym parametrem "Nazwy pól" na "Nie" nie przynosi oczekiwanego efektu.

I drugie pytanie podobne do powyższego, ale dotyczy kwerendy - jak eksportować do Excela wynik kwerendy, ale też bez nagłówków?

Pozdr.
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

http://support.microsoft.com/kb/246335
Link do wypowiedziLink
Piotr Nowak

Piotr Nowak Kierownik Projektu
(Project Manager),
Orange Polska

Temat: [Access 2003] eksport do Excela bez nagłówków

hmm, może i banalne ale nie mogę "wystartować" :(

Krok 1.
Uruchom program Visual Basic i utwórz nowy projekt Standard EXE. Domyślnie zostanie utworzony formularz Form1.

Uruchamiam Alt+F11 i nie mogę znaleźć jak utworzyć nowy projekt.
:(
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

moduł -> nowy
Link do wypowiedziLink
Piotr Nowak

Piotr Nowak Kierownik Projektu
(Project Manager),
Orange Polska

Temat: [Access 2003] eksport do Excela bez nagłówków

otworzył się pusty Module1 z linijką kodu

Option Compare Database

Gdzie ten Form1, jak dodać CommandButton ...
??

Podrzuć troszkę więcej info bo jestem zdeterminowany, ale jednak jeszcze początkujący w VBA :(Piotr Nowak edytował(a) ten post dnia 14.09.09 o godzinie 12:44
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

formularz -> nowy -> widok projektu -> Menu widok -> kod

ak chcesz dodać guzik to klikasz w guzik w przyborniku (są i opis po podświetleniu), zmieni się kursor, klikasz w formularz, pojawi się kreator, jak go nie chcesz (a w tym przypadku nie) wciskasz esc
prawym klawiszem klikas zw guzik -> konstruuj zdarzenie -> konstruktor kodu

poszukaj na chomiku książki do Accessa 200
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

może prościej byc od drugiej strony tzn. kod w excelu, w ThisWorkbook, ściąga dane bez nagłówków z tabeli albo kwerendy z accessa (możliwe, że trzeba dodać w referencjach Microsoft DAO library)

np.

Private Sub Workbook_Open()

Dim db As Database, rs As Recordset, str As String

Set db = OpenDatabase("c:\baza.mdb")
str = "SELECT * FROM [tabela albo kwerenda]"
Set rs = db.OpenRecordset(str)
Range("b2").CopyFromRecordset rs
rs.Close
db.Close

End Sub
Link do wypowiedziLink
Piotr Nowak

Piotr Nowak Kierownik Projektu
(Project Manager),
Orange Polska

Temat: [Access 2003] eksport do Excela bez nagłówków

Ściąganie do Excela odpada z różnych nie istotnych tutaj powodów.

A teraz ciąg dalszy tematu ;)

Jak zmodyfikować poniższy kod, aby:
a) można było określić od której komórki ma zacząć wypełnianie w Excel-u (np. A10)
b) eksport był bez nazw kolumn z tabeli

Private Sub Polecenie0_Click()
On Error Resume Next

DoCmd.OutputTo acOutputTable, "tmp_stat_D_2b", acFormatXLS, "E:\temp\Adhoc_Report2.xls", False, ""
If Err <> 0 Then MsgBox Err.Description

End Sub
Link do wypowiedziLink
Magdalena Stańczak

Magdalena Stańczak SPECJALISTA DS.
KONTROLINGU, IMPEL
Cleaning Sp. z o.o.

Temat: [Access 2003] eksport do Excela bez nagłówków

witam, prosze o podpowiedz jak wyeksportowac kwerende wybierająca z access do excela (moze byc bez naglowkow), jek dodaje filtr WHERE, to fragment Set rs = db.OpenRecordset(str) wysypuje sie:

Private Sub Workbook_Open()

Dim db As Database, rs As Recordset, str As String

Set db = OpenDatabase("c:\baza.mdb")
str = "SELECT * FROM [tabela albo kwerenda]"
Set rs = db.OpenRecordset(str)
Range("b2").CopyFromRecordset rs
rs.Close
db.Close

End Sub
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

str = "SELECT * FROM [tabela albo kwerenda]"

tu dajesz WHERE

ps. to nie export tylko importPrzemysław R. edytował(a) ten post dnia 28.12.09 o godzinie 13:04
Link do wypowiedziLink
Magdalena Stańczak

Magdalena Stańczak SPECJALISTA DS.
KONTROLINGU, IMPEL
Cleaning Sp. z o.o.

Temat: [Access 2003] eksport do Excela bez nagłówków

ale teraz VBA nie wie czym jest WHERE. Powinnam to jakoś zadeklarować, jeśli tak to jak?

Private Sub Workbook_Open()

Cells.Select
Selection.ClearContents
Range("A1").Select

Dim db As Database
Dim rs As Recordset
Dim str As String

Set db = OpenDatabase(ThisWorkbook.Path & "\bazia\BAZA_SQL.mdb")
str = "SELECT * FROM zzz_kwer"
WHERE zzz_kwer.date_acc = 200905

Set rs = db.OpenRecordset(str)
Range("d2").CopyFromRecordset rs

rs.Close
db.Close

End Sub

ps. export czy import - punkt widzenia zależy od punktu siedzenia ;)
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

może

str = "SELECT * FROM zzz_kwer WHERE zzz_kwer.date_acc = 200905"

i w tym przypadku to import :)Waldemar Bera edytował(a) ten post dnia 28.12.09 o godzinie 13:34
Link do wypowiedziLink
Magdalena Stańczak

Magdalena Stańczak SPECJALISTA DS.
KONTROLINGU, IMPEL
Cleaning Sp. z o.o.

Temat: [Access 2003] eksport do Excela bez nagłówków

no właśnie w ten sposób nie idzie
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

200905 musi być między apostrofami
Link do wypowiedziLink

konto usunięte

Temat: [Access 2003] eksport do Excela bez nagłówków

a wyskakuje jakis komunikat?
Link do wypowiedziLink
Magdalena Stańczak

Magdalena Stańczak SPECJALISTA DS.
KONTROLINGU, IMPEL
Cleaning Sp. z o.o.

Temat: [Access 2003] eksport do Excela bez nagłówków

apostrofy rozwiązały sprawę - śliczne dzięki

jeszcze jedno pytanie do tematu:
czy da sie poprzez vba wklejać kweredy z access do arkusza excel bez pozbywania sie formatow access ani naglowkow kwerendy, czyli po krotce tak jakbysmy przekleili cala kwerende poprzez ctr+c, ctr+vMAGDALENA STAŃCZAK edytował(a) ten post dnia 28.12.09 o godzinie 14:06
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

MS Access 2003 i 2010 -prob...




Wyślij zaproszenie do
Anuluj