ExecuteExcel4Macro und maximale Länge?
25.07.2007 08:26:00
Sven
ich möchte mit untenstehendem Code den Wert einer Zelle aus einer geschlossenen Mappe importieren.
In dieser Zelle steht aber ein längerer Text und nach dem Import ist er beim 255. Zeichen abgeschnitten.
Gibts einen kleinen Trick, dass der komplette Text importiert wird?
Das würde mir sehr helfen.
danke und Grüße
Sven
Function GetValue(path, file, sheet, ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub import()
Cells(1, 1).Value = GetValue("C:\test\", "Mappe2.xls", "Tabelle1", "A1")
End Sub