Datei öffnen, variabel übergeben
Marc
Ich habe nicht sehr viel Ahnung von VB und muss für meine Lehrabschlussarbeit trotzdem was programmieren.
dazu habe ich mit der makro aufnahme folgendes marko erstellt welches auch wunderbar funktioniert:
Sub datenermitteln()
' datenermitteln Makro
' Makro am 16.04.2004 von Marc Hänggi aufgezeichnet
ChDir "V:\Benutzer\cspmha\IPA\QS Realisierung"
Workbooks.Open Filename:= _
"V:\Benutzer\cspmha\IPA\QS Realisierung\QS Fragebogen.xls"
ActiveSheet.Unprotect
ActiveWindow.ScrollRow = 69
Rows("95:107").Select
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollRow = 80
Rows("104:105").Select
Selection.Copy
Windows("QS-Auswertung.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Nun wichtig ist aber vorallem diese stelle:
ChDir "V:\Benutzer\cspmha\IPA\QS Realisierung"
Workbooks.Open Filename:= _
"V:\Benutzer\cspmha\IPA\QS Realisierung\QS Fragebogen.xls"
hier öffnet mir das Makro die QS Fragebogen.xls datei.
das es aber im selben ordner verschieden datein gibt, die ich gerne einlesen würde muss ich den dateinamen über eine form selbst eingeben können.
Dazu habe ich mir eine einfache form gebastelt mit einem Textfeld und eine OK button.
Nun meine Frage:
Wie kann ich den inhalt des Textfeldes in eine variabel speichern, und am richtigen ort (also dort wo jetzt "QS Fragebogen.xls" steht einfügen?
vielen danke für eure hilfe
Gruss Marc