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

Tabelleninhalt in Textvorlage und Datei neu speichern

Frage Entwicklung VB for Applications

Mitglied: Siback

Siback (Level 1) - Jetzt verbinden

08.10.2012 um 20:59 Uhr, 1862 Aufrufe, 1 Kommentar

Hallo Zusammen,

ich suche eine Möglichkeit Zelleninhalte in eine Textdateivorlage an eine bestimmte Position zu schreiben und
diese Textdatei unter einem neuen Namen abzuspeichern. Hintergrund ist, dass später eine Schleife erstellt wird mit der
mehrere Kategorien zusammenzufassen und mit dazugehörende Zellinhalten in eine Textdatei zu schreiben sind und
diese unter dem Namen der Kategorie zu speichern ist. Hier erstmal der Ansatz den ich soweit ausfindig machen
konnte, um in eine Textdatei an eine bestimmte Stelle zu schreiben. Das mit dem Speichern unter einer externen
Textdatei aus Excel heraus erweist sich schwieriger als ich dachte, da mir nur das speichern von Exceldateien bekannt ist.
Kann mir jemand helfen die Lösung zu finden?


Sub Dateischreiben()
Dim strPfadUndDateiname As String
Dim lngFN As Long
Dim strText As String
Dim vntArray As Variant
Dim wksQuelle As Worksheet

strPfadUndDateiname = "test.txt" 'Anpassen!!!

lngFN = FreeFile 'Freie Dateinummer ermitteln
Open strPfadUndDateiname For Binary As lngFN 'Datei öffnen
strText = Space(LOF(lngFN)) 'leeren String erzeugen in den die gesammte Datei passt
Get lngFN, 1, strText 'von Datei in String
Close lngFN 'Datei schließen

vntArray = Split(strText, vbCrLf, -1, 1) 'aus dem gesammt String einzelne Zeilen in Array _
ablegen

'A1 in die Zeile 43 im Array ist dies die 42 denn es beginnt mit 0
vntArray(8) = Cells(1, 1).Text

strText = Join(vntArray, vbCrLf)
lngFN = FreeFile

Kill strPfadUndDateiname
Open strPfadUndDateiname For Binary As lngFN
Put lngFN, 1, strText
Close lngFN

End Sub
Mitglied: bastla
09.10.2012 um 20:18 Uhr
Hallo Siback und willkommen im Forum!

Das (VBS-)"FileSystemObject" steht auch unter VBA zur Verfügung ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Xml-Datei laden bzw. auf Festplatte kopieren und per VBA in eine Access-Tabelle speichern (22)

Frage von machohunk zum Thema VB for Applications ...

Google Android
Smartphone verbindet sich dauerhaft neu mit dem WLAN (2)

Frage von stolli zum Thema Google Android ...

Exchange Server
Exchange 2010 Datenbank neu aufbauen - wie vorgehen? (2)

Frage von westberliner zum Thema Exchange Server ...

Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (22)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (16)

Frage von FA-jka zum Thema Windows 10 ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...