Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

XLS speichern

Frage Entwicklung VB for Applications

Mitglied: Cadsys-Chemnitz

Cadsys-Chemnitz (Level 1) - Jetzt verbinden

25.03.2009, aktualisiert 16:19 Uhr, 4718 Aufrufe, 3 Kommentare

Ich habe ein Programm im VB 08 geschrieben, mit dem ich verschiedene Daten in ein Excelfile schreibe dieses dann speichere und Ausdrucke.

Dies funktioniert sehr gut.

Das speichern konnte ich durch einen Tip von Bastla folgendermaßen realisieren.


01.
 
02.
            Testa.ActiveWorkbook.Saved = True 
03.
            Testa.ActiveWorkbook.SaveAs("C\VERTRIEB\Lieferanteninfos\Bestellung\" & TextBox20.Text & ".xls") 
04.
            Testa.ActiveWorkbook.Close() 
05.
 
Textbox 20 ist der Name des Kunden

Jetzt will ich aber die einzelnen Dateien noch in Ordner nach Firmenname sortieren , dies ist Textbox 4

folgendes hab ich probiert was aber nicht funktioniert:

01.
 
02.
            Testa.ActiveWorkbook.Saved = True 
03.
            Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\Bestellung\" & TextBox4.Text & "\" & TextBox20.Text & ".xls") 
04.
            Testa.ActiveWorkbook.Close() 
05.
 
dabei bricht er mit dem Fehler ab das der Pfad nicht existiert, klar tut er ja auch nicht er soll ihn ja gleich erstellen, fals er nicht da ist.


Habt ihr ne Idee?

MfG Tino
Mitglied: Logan000
25.03.2009 um 16:37 Uhr
Moin Moin

....dabei bricht er mit dem Fehler ab das der Pfad nicht existiert, klar tut er ja auch nicht er soll ihn ja gleich erstellen, fals er nicht da ist.
Liegt wohl daran das der Code für das "Anlegenfallsderpfadnichtexistiert" nocht nicht geschrieben ist.
;- )

Schau mal in der VB hilfe nach Filesystemobject.

Gruß L.
Bitte warten ..
Mitglied: 76109
26.03.2009 um 22:36 Uhr
Hallo,

der Ordner muss erst erstellt werden.

z.B.:

01.
Dim Fso As New FileSystemObject   'Objectkatalog-Verweis = Microsoft Scripting Runtime 
02.
 
03.
Dim sFolder As String 
04.
 
05.
sFolder = "M:\VERTRIEB\Lieferanteninfos\Bestellung\" & TextBox4.Text 
06.
 
07.
If Not Fso.FolderExists(sFolder) Then Call Fso.CreateFolder(sFolder) 
08.
 
09.
Dann: 
10.
 
11.
Testa.ActiveWorkbook.SaveAs(sFolder & "\" & TextBox20.Text & ".xls") 
Gruß Dieter
Bitte warten ..
Mitglied: Cadsys-Chemnitz
27.03.2009 um 10:01 Uhr
Vielen Dank für die Hilfe klappt jetzt gut
Bitte warten ..
Neuester Wissensbeitrag
Exchange Server

WSUS bietet CU22 für Exchange 2007 SP3 nicht an. EOL Exchange 2007

Tipp von DerWoWusste zum Thema Exchange Server ...

Ähnliche Inhalte
Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Microsoft Office
gelöst Outlook 2007 kann kein Kennwort speichern ausgegraut (4)

Frage von Akcent zum Thema Microsoft Office ...

Outlook & Mail
gelöst Outlook vba Email Anhang in Ordner speichern (3)

Frage von Daywalkercxp zum Thema Outlook & Mail ...

Entwicklung
Captive Portal Seite mit Voucher speichern Funktion (4)

Frage von fisi-pjm zum Thema Entwicklung ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Backup
Datensicherung ARCHIV (12)

Frage von fautec56 zum Thema Backup ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...