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, 4713 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?

Mit freundlichen Grüßen 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
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Windows 10
Citrix Receiver - Benutzernamen speichern (2)

Frage von hendrik.vondankbahr zum Thema Windows 10 ...

Microsoft Office
gelöst Word stürtzt beim schließen oder speichern ab (8)

Frage von BoomBasti zum Thema Microsoft Office ...

Verschlüsselung & Zertifikate
gelöst Symantec PGP Desktop - Emails unverschlüsselt speichern (3)

Frage von SirTobi27 zum Thema Verschlüsselung & Zertifikate ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...