2
In the Sheet1
i have a table only with the Header of each column but empty values, I run a VBA that creates an Array that has the same number of columns of the table. Is there any way to export all the values of this array to the Excel table at once using the VBA code?
I use the code below to export to Sheet1
, wanted to do the same function but export directly into a table in the Sheet1
.
Private Sub Workbook_Open()
Dim Filename As String, line As String
Dim i As Integer
DB_Bovespa_Option = Application.Run("Funcao", Range("DATA"), 1, 0, "Bovespa")
PrintArray DB_Bovespa_Option, ActiveWorkbook.Worksheets("Sheet1").[A2]
End Sub
Sub PrintArray(Data As Variant, Cl As Range)
Cl.Resize(UBound(Data, 1), UBound(Data, 2)) = Data
End Sub