*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Excelbestanden openen en sluiten  (gelezen 2871 keer)

0 leden en 1 gast bekijken dit topic.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Excelbestanden openen en sluiten
« Gepost op: 24 augustus 2006, 19:06:59 »
Ik heb 3 bestanden : bestand1.xls, bestand2.xls, bestand3.xls

Situatie-1

Bij het activeren van bestand1.xls opent deze automatisch de bestanden bestand2.xls en bestand3.xls via een procedure workbook_open in bestand1.xls

In het bestand3.xls zit ook een procedure workbook_open die de bestanden bestand1.xls en bestand2.xls zou moeten sluiten.

Probeem is een foutmelding "object vereist".

In bestand1 staat de volgende code

Private Sub Workbook_Open()
Workbooks.Open ("E:\Development\KVA\test\bestand2.xls")
Workbooks.Open ("E:\Development\KVA\test\bestand3.xls")

End Sub

In bestand2 staat niets

In bestand3 staat

Private Sub Workbook_Open()

Workbook.Close ("E:\Development\KVA\test\bestand2.xls")
Workbook.Close ("E:\Development\KVA\test\bestand1.xls")

End Sub


Wie weet wat ik fout doe.
Gelogd
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline dnties

  • Ambassadeur
  • *****
  • Berichten: 1.267
  • Oplossing.be
Re:Excelbestanden openen en sluiten
« Reactie #1 Gepost op: 24 augustus 2006, 23:23:09 »
Lees hier de documentatie van Workbook.Close.
En inderdaad: Er wordt een object als parameter verwacht, geen string.

Ik ben geen VBA-held, maar probeer het volgende te gebruiken als de code van Workbook3:

Private Sub Workbook_Open()

MyWorkbook1 = Workbooks.open("E:\Development\KVA\test\bestand2.xls")
MyWorkbook2 = Workbooks.open("E:\Development\KVA\test\bestand1.xls")
MyWorkbook1.Close
MyWorkbook2.Close

End Sub

Ik ga er hier vanuit dat het ten tweede malen openen van bestand1 en bestand2 oplevert, dat de bestanden niet echt voor de tweede keer worden geopend, maar dat er er nu wél objecten naar verwijzen (nl. MyWorkbook1 en MyWorkbook2).

Eerst een backup maken, want ik kan niet garanderen dat dit werkt! ;)

Tijs.
Gelogd
P4PE ASUSTeK Computer INC., RIVA TNT2/TNT2 Pro, Windows XP, Home, SP2, NL, Intel(R) Pentium(R) 4 CPU 2.66GHz, 512 MB RAM, HDD:120 GB, NTFS, AVG Anti-Virus, ZoneAlarm Firewall, Internet Explorer 6.0, Hotmail

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Excelbestanden openen en sluiten
« Reactie #2 Gepost op: 25 augustus 2006, 00:00:47 »
Hallo dnties bedankt voor je antwoord maar het probleem ligt moeilijker. Het probleem is dat in bestand1.xls vba-code staat die bestand2 en 3 zal openen. In bestand3 staat dan code die de reeds geopende bestand 1 en 2 moet sluiten.

In bijlage even een zipje meyt de drie bestandjes - plaats ze gewoon in een mapje en pas het pad aan in de vba-code.

Om te starten moet je bestand1.xls activeren.

Het probleem blijft bestaan.
Gelogd
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline jpvs

  • Lid
  • *
  • Berichten: 33
  • Geslacht: Man
  • Oplossing.be
Re:Excelbestanden openen en sluiten
« Reactie #3 Gepost op: 25 augustus 2006, 12:06:48 »
Workbooks("bestand1.xls").Close
Workbooks("bestand2.xls").Close



Pierre
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com