Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien aus Spalte A öffnen und speichern

Dateien aus Spalte A öffnen und speichern
18.04.2005 10:22:44
Jens
Guten Morgen
wie kann ich über VBA die in Spalte A stehenden Dateien öffnen und mit dem
Namen in Spalte B speichern.
In A2 - A55 steht der Dateiname der zu öffnen ist und in B2 - B55 der Name unter der die Datei neu gespeichert werden soll. Der Pfad ist immer D:\Reporting
Danke und Gruß
Jens

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien aus Spalte A öffnen und speichern
18.04.2005 11:30:31
Harald
Hallo Jens,
frei nach dem Motto...besser als nix
ungetestet aus dem Handgelenk, mit einer Warnung, dass Du dann am Ende 55 Dateien gleichzeitig geöffnet hast ;-))....sofern alle Dateien vorhanden sind.

Sub DateiOeffnen()
Dim Filename As Long
for i = 2 to 55
Filename = "D:\Reporting" & cells(i, 1).Value & ".xls"
Workbooks.Open Filename
ActiveWorkbook.SaveAs Filename:= "D:\Reporting" & cells(i, 2).Value & ".xls"
next i
End Sub

Gruß
Harald
AW: Dateien aus Spalte A öffnen und speichern
18.04.2005 11:57:45
UweD
Hallo Jens
Hier meine Lösung:

Sub Sp_unter()
Dim Pfad$, LR%, I%, UrDat$, Neu$, Ja$
Dim doc As Object, olApp As Object
Pfad = "D:\Reporting\"
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
For I = 1 To LR
UrDat = ActiveSheet.Cells(I, 1).Value
Neu = ActiveSheet.Cells(I, 2).Value
If Neu = "" Then
MsgBox "Zielname in Zeile " & I & " fehlt."
Exit Sub
End If
Ja = Dir(Pfad & UrDat)
If Ja <> "" Then
Workbooks.Open Pfad & UrDat
ActiveWorkbook.Close Filename:=Pfad & Neu
Else
MsgBox "Datei: '" & UrDat & "' existiert nicht!"
End If
Next I
End Sub

Wenn du NICHTS an den Dateien änderst, könne das Makro die Datei eigendlich NUR copieren, ohne öffnen.. oder?
Gruß aus UD
Anzeige

95 Forumthreads zu ähnlichen Themen

Speichern von Auswahl in neue Datei
Auswahl

Hallo, trotz suchen mit Google habe ich folgendes Problem nicht lösen könne. Ich will per VBA die Selektion A1:G27 als neues Excel File unter "Eigene Dateien" abspeichern. Dieses File soll den Namen aus der Zelle C4 und D16 erhalten. Also z.B. Müller18.10.08.xls, je nach dem was in C4 und D16 s...
01.11.2008 15:23:51
Thread-ID: 1021031
5 Beiträge
Anzeige
Bild aus Exceldatei speichern
Dave

Hallo,
habe ein Bild das sich in einer Exceldatei befindet und welches ich gerne
unter "Eigene Bilder" speichern möchte.
Habe aber keine Ahnung wie ich das Bild aus dieser Datei heraus bekomme.
Bitte um Hilfe
Gruß
Dave
13.02.2009 21:52:00
Thread-ID: 1050642
2 Beiträge
Einfügen aus Zwischenablage als Bild
Werner

Hallo!
Ich kann machen was ich will - ich finde nix zu meinem Problem:
In einer anderen Anwendung mache ich eine Hardcopy (also quasi ein Foto) mit Strg-c
Dieses Foto will ich als Bild über vba in eine Excel-Datei einfügen.
Das ist doch bestimmt ein ganz simpler Befehl oder?
...
18.02.2009 07:47:00
Thread-ID: 1051674
3 Beiträge
Anzeige
@ Sepp -- Bilder aus Word speichern
Dirk

Hallo Excelgemeinde!
(Sepp oder auch andere, die mir helfen möchten)
Ich habe von Sepp den unten aufgeführten Code. Der Funzt soweit auch gut.
Ich habe in den Code:
.documents(1).InlineShapes.Reset
eingebaut.
Damit schaffe ich es, dass das erste Bild im Document vor de...
04.05.2009 11:32:15
Thread-ID: 1072689
5 Beiträge
Dateiauswahldialog-Öffnen-Speichern win32-API
Werner

Hallo Excel Gemeinde,
ich bin durch Tino auf die
Win32-API Auswahldialogmethode gestoßen.
Vielen Excel-Usern mag dieses Thema bekannt sein, aber für diejenigen, die sich mit dem Thema:
Öffnen und Speichern von Dateien aus Excel heraus beschäftigen, lade ich nachfolgende Beispiel...
27.05.2009 13:53:21
Thread-ID: 1077696
4 Beiträge
geladenes Bild in Userform Image speichern
k

Hallo,
...habe in einer Userform das Element Picture drin und dieses wird mit Fotos aus einem Verzeichnis entsprechend geladen. Nun würde ich gern dem User die Möglichkeit geben - dieses Bild bei Bedarf unter eine Art "Datei speichern unter" für sich zu speichern.
Habe aber keine richti...
18.08.2009 13:46:40
Thread-ID: 1096746
9 Beiträge
Zelle als Bild speichern beschleunigen
Reinhard

Hallo Wissende,
nachfolgender Code macht schon das was ich mir erhoffte, er nimmt die Unicode Zeichen, die von A32 bis A65535 stehen und speichert sie als gif ab.
Dazu habe ich drei Fragen.
Wieso als Gif, im Code steht doch "Bitmap"? Ändere ich in
strFile = "c:\Test\meinBild" &...
12.02.2011 19:49:01
Thread-ID: 1200445
13 Beiträge
Dateiname aus Zellen aut.speichern
Wolfgang

Hallo,
der Dateiname eines Tabellenblatt soll aut.aus dem Inhalt von 2 Zellen des Tabellenblattes(Zelle D19 und D20)abgespeichert werden.
gibt es da eine Möglichkeit als makro
danke im voraus
17.05.2002 10:36:48
Thread-ID: 121594
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
1
2
13
4
3
8
12
2
2
14
2
7
1
2
5
3
5
4
7
2
2
1
1