AW: Mit Makro separate Datei bzw. Ordner öffnen
28.06.2008 20:02:23
tuska
Hallo ransi,
ich hab's jetzt mit diversen Versuchen doch noch selbst geschafft! (1 Ordner, 1 Datei) - habe "Option explicit" und "End Sub
" einfach entfernt --- anbei der Code:
Const ordner = "D:\daten\EXCEL"
Const Datei = "d:\Daten\Test.oft"
Sub Blatt_Gruppenablage()
' Tastenkombination: Strg+Umschalt+Y
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C7:D7").Select
'In der folgenden Zeile können Sie den Standardpfad anpassen, also "C:\bak\" beispielsweise _
durch einen Netzwerkpfad ersetzen
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "C:\ _
Dokumente und Einstellungen\xxx\Desktop")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Achtung - Achtung: E-Mail Versand mit ABSENDER-Adresse = xxxx !" & Chr(10) & Chr(10) & " _
xxxxxxxxxx !"
Sheets("INHALT").Select
Range("C17").Select
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.explore ordner 'Ordner öffnen
objShell.Open Datei '"Excelfremde Datei" öffnen
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang war nicht erfolgreich")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
End Sub
Nochmals vielen Dank für Deine Hilfe!!
Liebe Grüße
tuska