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, 4733 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
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Rechtliche Fragen
Hotspot rechtssicher betreiben? (14)

Frage von xSiggix zum Thema Rechtliche Fragen ...

ISDN & Analoganschlüsse
gelöst Splitter - RJ45 zu RJ11? (14)

Frage von Waishon zum Thema ISDN & Analoganschlüsse ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (12)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...