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, 4725 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 ..
Ähnliche Inhalte
Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(6)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Heiß diskutierte Inhalte
Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Linux
gelöst Google Chrome startet nicht (12)

Frage von Thomas91 zum Thema Linux ...