Thema Datum  Von Nutzer Rating
Antwort
25.07.2007 17:23:55 Thomas Zweimüller
Solved
Blau Aw:VBA Code mitschicken
27.07.2007 13:50:34 Sozu
NotSolved
30.07.2007 10:12:32 Thomas Zweimüller
NotSolved

Ansicht des Beitrags:
Von:
Sozu
Datum:
27.07.2007 13:50:34
Views:
961
Rating: Antwort:
  Ja
Thema:
Aw:VBA Code mitschicken
Hallo Thomas,

in diesem Code werden 10 Excel-Dateien geöffnet, wobei die Dateinamen (mit Pfad) in Spalte A und das zugehörige Passwort in Spalte B der aktiven Tabelle stehen.

--------------------------------------------------------------------------------------------------
Dim i&, wb As Workbook, passwort$, dateiname$

For i = 1 To 10
dateiname = Cells(i, 1).Value ' Spalte A des aktiven Arbeitsblattes
passwort = Cells(i, 2).Value ' Spalte B des aktiven Arbeitsblattes
Set wb = Workbooks.Open(Filename:=dateiname, ReadOnly:=True, Password:=passwort)


[...Anweisungen zum Kopieren der Daten...]


wb.Close (False)
Next i
Set wb = Nothing
---------------------------------------------------------------------------------------------------

Ich hoffe, das hilft Dir!

Gruß Sozu

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.07.2007 17:23:55 Thomas Zweimüller
Solved
Blau Aw:VBA Code mitschicken
27.07.2007 13:50:34 Sozu
NotSolved
30.07.2007 10:12:32 Thomas Zweimüller
NotSolved