S
Stefano Condotta
Hello,
This code fails on "Wholeline=Join(vCellArray, sSeperator)". When a two
dimensional array of N rows and M columns with M being greater than 1 is
passed to the routine, the function works great. When the array is N rows
with only one column is passed, the function gives me a type 13 error on the
line previously mentioned. Can anyone explain this?
Dim objFS As Object
Dim objTextFile As Object
Dim sWholeLine As String
Dim vRow As Variant
Dim vCellArray As Variant
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFS.OpenTextFile(sFileName, ForAppending, True, 0)
For Each vRow In ExportRange.Cells.Rows
' With 2-D arrays we need to get values in a horizontal 1-D
array with two transposes!? (Thanks Tom Ogilvy)
vCellArray =
Application.Transpose(Application.Transpose(Worksheets(vRow.Parent.Name).Range(vRow.Address).Value))
sWholeLine = Join(vCellArray, Seperator) '<----Error 13 Type
Mismatch
objTextFile.WriteLine sWholeLine
Next
It almost seems that vCellArray needs to contain more than one item. And
vcellArray does contain a correct value.
I'm stumped.
Regards,
Stefano Condotta
This code fails on "Wholeline=Join(vCellArray, sSeperator)". When a two
dimensional array of N rows and M columns with M being greater than 1 is
passed to the routine, the function works great. When the array is N rows
with only one column is passed, the function gives me a type 13 error on the
line previously mentioned. Can anyone explain this?
Dim objFS As Object
Dim objTextFile As Object
Dim sWholeLine As String
Dim vRow As Variant
Dim vCellArray As Variant
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFS.OpenTextFile(sFileName, ForAppending, True, 0)
For Each vRow In ExportRange.Cells.Rows
' With 2-D arrays we need to get values in a horizontal 1-D
array with two transposes!? (Thanks Tom Ogilvy)
vCellArray =
Application.Transpose(Application.Transpose(Worksheets(vRow.Parent.Name).Range(vRow.Address).Value))
sWholeLine = Join(vCellArray, Seperator) '<----Error 13 Type
Mismatch
objTextFile.WriteLine sWholeLine
Next
It almost seems that vCellArray needs to contain more than one item. And
vcellArray does contain a correct value.
I'm stumped.
Regards,
Stefano Condotta