Option
Explicit
Sub
ImportAlleDaten()
Dim
x
As
Integer
For
x = 1
To
96
Call
Import_Messdaten(x)
Next
x
End
Sub
Sub
Import_Messdaten(
ByVal
myNumber
As
Integer
)
Const
mcsvAddStr
As
String
= _
"TEXT;E:\Streifenziehanlage\Versuche 21.01.2014\HBM-Daten\02.csv"
Const
mcsvAddNam
As
String
=
"02"
Const
mtxt1AddStr
As
String
= _
"TEXT;E:\Streifenziehanlage\Versuche 21.01.2014\Aramis-Daten\SCHNITT-STREIFEN_002_point0.txt"
Const
mtxt1AddNam
As
String
=
"SCHNITT-STREIFEN_002_point0"
Const
mtxt2AddStr
As
String
= _
"TEXT;E:\Streifenziehanlage\Versuche 21.01.2014\Aramis-Daten\SCHNITT-STREIFEN_002_point1.txt"
Const
mtxt2AddNam
As
String
=
"SCHNITT-STREIFEN_002_point1"
Rem jetzt die Variabel bilden
Dim
mycvsStr
As
String
, mycvsNam
As
String
Dim
mytxt1Str
As
String
, mytxt1Nam
As
String
Dim
mytxt2Str
As
String
, mytxt2Nam
As
String
Dim
myRepl
As
String
Rem die Variablen ersetzen / bilden
myRepl = Format(myNumber,
"0#"
) &
".csv"
mycvsStr = Replace(mcsvAddStr,
"02.csv"
, myRepl)
mycvsNam = Format(myNumber,
"0#"
)
myRepl =
"STREIFEN_0"
& Format(myNumber,
"0#"
)
mytxt1Str = Replace(mtxt1AddStr,
"STREIFEN_002"
, myRepl)
mytxt1Nam = Replace(mtxt1AddNam,
"STREIFEN_002"
, myRepl)
mytxt2Str = Replace(mtxt2AddStr,
"STREIFEN_002"
, myRepl)
mytxt2Nam = Replace(mtxt2AddNam,
"STREIFEN_002"
, myRepl)
With
ActiveSheet.QueryTables.Add(Connection:= _
mycvsStr, Destination _
:=Range(
"$A$2"
))
.Name = mcsvAddNam
End
With
Rem k.A. was da sonst noch konstant
With
ActiveSheet.QueryTables.Add(Connection:= _
mytxt1Nam _
, Destination:=Range(
"$H$1"
))
.Name = mytxt1Nam
End
With
Rem k.A. was da sonst noch konstant
With
ActiveSheet.QueryTables.Add(Connection:= _
mytxt2Str _
, Destination:=Range(
"$N$1"
))
.Name = mytxt2Nam
End
With
Rem k.A. was da sonst noch konstant
End
Sub