Wklejenie nowych wierszy do Excela z VB

Thread View: pl.comp.bazy-danych.msaccess

8 messages

[T] Back to Threads [V] Tree View [G] Group Articles

8 total messages Started by Jan Koc Wed, 13 May 2015 21:37

#136883

Author: Jan Koc
Date: Wed, 13 May 2015 21:37

11 lines
2134 bytes

Witam, hasło "pomocy" byłoby lekko na wyrost, ale mam problem.
przenoszę dane z Accessa do Excela (klient tak chce, jak śpiewa Stanisław Sojka cytując pewnie starych Polaków w Tangu Warszawskim "ale przeBóg po co tak", trudno) i wklejam dane do kilku komórek

        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "DaneDoExcela", AB, False, "b1:e2"
 i tu już popełniam jakiś błąd bo chciałbym przesłać tylko wartości a przesyłam również nazwy kolumn.

jednak sedno problemu tkwi w tym, że mam skopiować wiersz nr 5 i dopisać po nim n wierszy sformatowanych tak jak w/w (tzn wiersz 5-ty), czyli format komórek, typy wartości, pogrubienia krawędzi itd.  

Mimo poszukiwań na grupie nie udało mi się znaleść rorwiązania, a w Excelowych grupach, cóź toż to jakby inny język.

Jan

Re: Wklejenie nowych wierszy do Excela z VB

#136869

Author: Maciej Tokarz
Date: Thu, 14 May 2015 08:44

9 lines
1244 bytes

> Witam, hasło "pomocy" byłoby lekko na wyrost, ale mam problem.

Witaj,

    Nie przeprowadzałem takiej operacji, ale jeśli mogę pomóc to:
    https://www.google.pl/#q=ms+access+paste+record+to+excel+without+headers
    Jest sporo informacji...

M.

Uzupełnienie: Wklejenie nowych wierszy do Excela z VB

#136876

Author: Maciej Tokarz
Date: Thu, 14 May 2015 08:50

3 lines
1105 bytes

No i jeszcze: 
https://www.google.pl/#q=vba+format+excel+spreadsheet+from+access
M.

Re: Uzupełnienie: Wklejenie nowych wierszy do Excela z VB

#136865

Author: Maciej Tokarz
Date: Thu, 14 May 2015 08:51

1 lines
1052 bytes

Upss... Nie tu poszło :-)

Re: Wklejenie nowych wierszy do Excela z VB

#136889

Author: Jan Koc
Date: Mon, 18 May 2015 07:35

22 lines
1821 bytes

Dziękuję za podpowiedź. Mam jednak problem bo coś tam znalazłem i chciałem wykorzystać, ale wywala mi kod już przy deklaracjach

Public Sub FormatExcelBasic(fileIn As String, sheetIn As String)

On Error GoTo errHan
Dim xlApp As Excel.Application

i tu robi bum!
Czego mi brakuje ?

Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim lngLastRow As Long
Dim strCell As String

Set xlApp = New Excel.Application
xlApp.Visible = False

Set xlBook = xlApp.Workbooks.Open(fileIn)

Set xlSheet = xlBook.Sheets(sheetIn)

Re: Wklejenie nowych wierszy do Excela z VB

#136890

Author: Maciej Tokarz
Date: Mon, 18 May 2015 08:12

9 lines
1223 bytes

> i tu robi bum!
> Czego mi brakuje ?

A jakiś bardziej szczegółowy opis błędu masz?
Nie słyszałem o Err.Description = "Bum!" :-)
Jak dodać obsługę błędów:
https://www.google.pl/#q=vba+error+handling

M.

Re: Wklejenie nowych wierszy do Excela z VB

#136891

Author: Maciej Tokarz
Date: Mon, 18 May 2015 08:46

19 lines
1397 bytes

Zapewne błąd jest taki:

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

User-defined type not defined
---------------------------
OK   Pomoc
---------------------------

MISSING:
Microsoft Excel 12.0 Object Library

A tu jest objaśnienie:
http://stackoverflow.com/questions/5729195/how-to-refer-to-excel-objects-in-access-vba

M.

Re: Wklejenie nowych wierszy do Excela z VB

#136873

Author: Jan Koc
Date: Mon, 18 May 2015 09:58

4 lines
1639 bytes

Tak tego brakowało.
Oczywiście szukałem odpowiedniej biblioteki, ale coś mnie zaćmiło i szukałem pod nazwą EXCEL omijając szerokim łukiem :  Microsoft Excel

Dziękuję Jan

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads