VBA Macro

09/11/2007 - 10:51 von Louis | Report spam
Hallo zusammen das folgende macro öffnet das *.txt file mit der nr.
*1193901076. Ist es möglich ein macro zu erstellen welches die letzten 4
ziffern in einem eingabeformat verlangt



.Range("A1").Select
ChDir "C:\Program Files\TMI Software\ValiVacq 4.3.2"
Workbooks.OpenText Filename:= _
"C:\Program Files\TMI Software\ValiVacq 4.3.2\1193901076 vt
kantonsspital glarus app 95012.txt" _
, Origin:“2, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1,
1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)),
TrailingMinusNumbers _
:=True
 

Lesen sie die antworten

#1 Melanie Breden
09/11/2007 - 11:25 | Warnen spam
Hallo,

"Louis" schrieb:
Hallo zusammen das folgende macro öffnet das *.txt file mit der nr.
*1193901076. Ist es möglich ein macro zu erstellen welches die letzten 4
ziffern in einem eingabeformat verlangt




z.B. so:

Public Sub OpenFile()
Dim strText As String
Dim strFile As String

strText = Application.InputBox("Gebe die letzten 4 Ziffern ein")

strFile = "C:\Program Files\TMI Software\ValiVacq 4.3.2\119390" & _
strText & " vtkantonsspital glarus app 95012.txt"

' Prüfung
If Dir(strFile) = "" Then Exit Sub

Workbooks.OpenText Filename:=strFile _
, Origin:“2, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ähnliche fragen