-
Path: news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!new
s.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!t-online.de!news.glorb.co
m!postnews.google.com!g31g2000yqc.googlegroups.com!not-for-mail
From: Tadek <t...@g...com>
Newsgroups: pl.comp.programming
Subject: [VBA] Kopiowanie tabel Excela.
Date: Fri, 16 Oct 2009 01:42:45 -0700 (PDT)
Organization: http://groups.google.com
Lines: 91
Message-ID: <b...@g...googlegroups.com>
NNTP-Posting-Host: 193.138.10.41
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-2
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1255682565 5935 127.0.0.1 (16 Oct 2009 08:42:45 GMT)
X-Complaints-To: g...@g...com
NNTP-Posting-Date: Fri, 16 Oct 2009 08:42:45 +0000 (UTC)
Complaints-To: g...@g...com
Injection-Info: g31g2000yqc.googlegroups.com; posting-host=193.138.10.41;
posting-account=s0fkMgoAAAASqsjlvGoAnf8hfNlLKwx1
User-Agent: G2/1.0
X-HTTP-Via: 1.1 proxy.ops.de:81 (squid/2.5.STABLE5)
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.3)
Gecko/20090824 Firefox/3.5.3,gzip(gfe),gzip(gfe)
Xref: news-archive.icm.edu.pl pl.comp.programming:183821
[ ukryj nagłówki ]Witam.
Mam dwa pliki Excela: plik1.xlt i plik2.xls. W plik1.xlt jest jedna
tabela ("SV"), którą trzeba skopiować do plik2.xls (gdzie może być
więcej niż jedna). Całość jest wywoływana przyciskiem z formularza
Accessa i powinna się odbyć w tle, przy czym po skończeniu operacji
powinniśmy otrzymać na ekranie plik2.xls z otwartą tabelą, którą przed
chwilą skopiowaliśmy (dobrze by było, żeby była jako ostatnia
zakładka).
Przerobiłem kilkanaście opcji znalezionych w sieci na forach i na
stronach MS. Żadna nie działa. Albo działa tylko z Office najnowszym,
albo najstarszym albo z VB (bez 'A')...
A ja mam Office 2003 i prośbę, gdyby ktoś mnie naprowadził na trop.
Chwilowo jestem gdzieś tu: (Sorry za bajzel, ale jak pisałem, jakiś
czas już kombinuję i zamiast kasować 'zakomentowuję' - może się przyda
przy następnej próbie...)
Private Sub btn_tplacz_Click()
On Error GoTo error
Dim tp As excel.Application
Dim vr As excel.Application
Dim excel As excel.Application
Dim vr_plik As String
Dim tp_plik As String
Dim tp_s As Worksheet
Dim vr_s As Worksheet
Dim tp_wb As Workbook
Dim vr_wb As Workbook
Dim NumofWorksheets As Integer
vr_plik = "plik1.xlt"
tp_plik = "plik2.xls"
Set excel = GetObject(, "Excel.Application")
dalej:
'Set vr = GetObject(, "Excel.Application")
Set tp_wb = Workbooks.Open(tp_plik)
Set vr_wb = Workbooks.Open(vr_plik)
Set vr_s = Worksheets("SV")
Set vr_s = ActiveSheet
NumofWorksheets = tp_wb.Sheets.count
'vr.Workbooks.Open (vr_plik)
' tp.Sheets(Sheet.count).Select
vr_s.Select
vr_s.Activate
' vr_s.Copy after:=Workbooks(tp_wb).Sheets(Sheets.count)
vr_s.Copy after:=tp_wb.Worksheets(1)
' tp_wb.Sheets(NumofWorksheets).Paste
' vr.Sheets("SV").Activate
tp_wb.Activate
tp_wb.Sheets("SV").Activate
'vr.Workbooks.Close
tp.Workbooks.Open (tp_plik)
' vr.Sheets("SV").Select
'tp.Sheets("SV").Activate
'tp_s = tp.Worksheets.Item(1)
'vr_s = vr.Worksheets.Item(1)
'vr.Sheets("SV").Copy Destination:=tp '.Sheets(Sheets.count)
' Destination:=ActiveSheet.Cells(1, 1)
' ActiveSheet.name = "SV"
Exit Sub
error:
Select Case Err.Number
Case 429
Set tp = CreateObject("Excel.Application")
Resume dalej
Case 1004
MsgBox "Plik nieznaleziony", vbCritical
' vr.Quit
' tp.Quit
Set vr = Nothing
Set tp = Nothing
Exit Sub
Case Else
MsgBox Err.Description
End Select
'vr.Quit
'Set vr = Nothing
'Set tp = Nothing
End Sub
Najnowsze wątki z tej grupy
- Do czego nadaje się QDockWidget z bibl. Qt?
- Bibl. Qt jest sztucznie ograniczona - jest nieprzydatna do celów komercyjnych
- Co sciaga kretynow
- AEiC 2024 - Ada-Europe conference - Deadlines Approaching
- Jakie są dobre zasady programowania programów opartych na wtyczkach?
- sprawdzanie słów kluczowych dot. zła
- Re: W czym sie teraz pisze programy??
- Re: (PDF) Surgical Pathology of Non-neoplastic Gastrointestinal Diseases by Lizhi Zhang
- CfC 28th Ada-Europe Int. Conf. Reliable Software Technologies
- Młodzi programiści i tajna policja
- Ada 2022 Language Reference Manual to be Published by Springer
- Press Release - AEiC 2023, Ada-Europe Reliable Softw. Technol.
- Ada-Europe - AEiC 2023 early registration deadline approaching
- Ada-Europe Int.Conf. Reliable Software Technologies, AEiC 2023
- Ile cykli zajmuje mnożenie liczb 64-bitowych?
Najnowsze wątki
- 2024-05-18 Warszawa => Mid PHP Developer (Laravel) <=
- 2024-05-18 Warszawa => Software .Net Developer <=
- 2024-05-18 Warszawa => Mid/Senior QA Engineer <=
- 2024-05-18 Ulm => Solution Architect (sichere Kommunikation und IoT-Loesungen <=
- 2024-05-18 Katowice => Head of Virtualization Platform Management and Operating S
- 2024-05-18 Warszawa => SAP WM Consultant / Execution <=
- 2024-05-18 Wrocław => Consultant/Implementer Comarch ERP XL <=
- 2024-05-18 Gdańsk => Head of International Freight Forwarding Department <=
- 2024-05-18 Warszawa => Account Manager (Recruitment Services) <=
- 2024-05-18 Łódź => Salesperson - CRM Systems <=
- 2024-05-18 Łódź => Handlowiec - Systemy CRM <=
- 2024-05-17 ZŁOMNIK o pracy w TVN TURBO, nowych przepisach i współczesnej motoryzacji. Turbo Taryfa!
- 2024-05-17 Białystok => DevOps Engineer Conexa First (Contractor) <=
- 2024-05-17 Warszawa => Starszy inżynier oprogramowania (Rust) <=
- 2024-05-17 Zabrze => Junior HelpDesk <=