importing excel file to hp prime

[YEDERF]

Here is the way to transfer text and formulas, do not contemplate G1...G9 ni M1...M9 L1.....L9 Z1....Z9






code vb excel 2016

Sub EncontrarÚltimaFila()
Dim f As Long
'Lee la fila de la ultima celda de UsedRange
g = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
f = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
' MsgBox f
'MsgBox g

For i = 1 To g
For j = 1 To f
'Debug.Write(index.ToString & " ")
texton = ""
If TypeName(ActiveSheet.Cells(i, j).Value) = "String" Then
texto = ActiveSheet.Cells(i, j).Value
T = Len(texto)
For k = 1 To T
C = Mid(texto, k, 1)
C = Application.WorksheetFunction.Unicode(C)

texton = texton & C & ","
Next
texton = Left(texton, Len(texton) - 1)
texton = "CHAR({" & texton & "})"
ActiveSheet.Cells(i, j).Value = texton
'MsgBox ActiveSheet.Cells(i, j).Value
End If


Next
Next
End Sub