VBA Befehle

In eine Datei schreiben

Dim vKanal as Integer
Dim vText as String
Dim vDateiname as String
vDateiname = "C:\Eigene Dateien\Log.txt"
vText = "Hallo Welt"
vKanal = FreeFile
Open vDateiname For Append as #vKanal
Print #vKanal,vText
Close #vKanal

Aus einer Datei lesen

Dim vZeile as String
Open vDateiname for Input as #vKanal
While Not EOF(vKanal)
Line Input #vKanal, vZeile
Wend
Close #vKanal

Datei open Dialog

	
	Dim dlgDatei As Dialog

	
	    Set 
	dlgDatei = Dialogs(wdDialogFileOpen)

	
	    With 
	dlgDatei

	
	        If 
	.Display() Then

	
	            MsgBox
	
	"Die Datei '"
	
	& CurDir() & 
	
	"\" & .Name & "' 
	soll geöffnet werden."

	
	        Else

	
	            MsgBox
	
	"Der Benutzer hat abgebrochen.", 
	vbCritical

	
	        End
	
	If

	
	    End
	
	With

Datei löschen, umbenennen, Kopieren

Kill dateiname
Name AlterName As NeuerName
FileCopy vQuellFile, vZielFile

String Operationen

Finden des letzen Vorkommen eines Zeichen in einem String:
InstrRev(String,Suchzeichen,[,Start[,compare]])

Prüfen ob ein String eine Nummer ist:
IsNumeric(String)

Kontaktieren Sie mich für Ihre Entwicklungswünsche in VBA unter www.hexerei.ch
oder rufen Sie gleich an: Markus Winter, 076 346 13 30.

Ihre Werbung hier

Haftungsausschluss: Verwendung der Informationen auf Ihre eigene Gefahr. Wir übernehmen keinerlei Haftung. Beachten Sie auch den Haftungsausschluss.

Wenn Sie Wünsche, Anregungen, Verbesserungen, Korrekturen oder sonstige Vorschläge zu dieser FAQ haben: . Wir freuen uns auf Ihr Mail.

Und jetzt noch ein bisschen Werbung...

Stellensuche, Jobangebote unter www.notizia.ch/stellensuche