Проблемы с передачей данных из Excel в VB.net? - PullRequest
0 голосов
/ 28 ноября 2018

У меня проблемы с получением значения в ячейке Excel с vb.net.

На самом деле у меня есть файл Excel или CSV, который содержит данные из теста.Первый столбец содержит временные точки, а второй - данные о мощности.

    appExcel = CreateObject("Excel.Application")
    appExcel.Visible = True
    wbExcel = appExcel.Workbooks.Open(Dossier & NomduFichier, Local:=True)
    wsExcelWorksheets = wbExcel.Worksheets
    WsData = wsExcelWorksheets(1)
    WsData.Select()

    LigneMax = WsData.Application.WorksheetFunction.CountA(WsData.Columns(1)))-1

    ReDim Temps(LigneMax)
    ReDim Puissance(LigneMax)
    ReDim Ic(LigneMax)
    ReDim Ia(LigneMax)
    ReDim Frequence(LigneMax)
    ReDim Us(LigneMax)

    WsData.Range("A1:A" & LigneMax).Select()
    WsData.Range("A1:A" & LigneMax).NumberFormat = "@"
    For i As Integer = 0 To 50
        Temps(i) = WsData.Cells(i + 1, 1).Value
        Puissance(i) = WsData.Range("B" & i + 1).Value2
        TextBox1.Text = i & "/" & LigneMax * 2
    Next

    wbExcel.Close()
    WsData = Nothing
    wsExcelWorksheets = Nothing
    wbExcel = Nothing
    appExcel = Nothing

Но когда я смотрю результат «Temps (i) = WsData.Cells (i + 1, 1). Значение», результат будет: «0,07 55» вместо «0,0755»,Пробел вставляется прямо в середину значения моей ячейки, и я не могу его использовать ни к чему.

, чтобы исправить это, я попытался отформатировать столбец как текст, но ничего не изменилось.Я заменяю Range ячейками, но это тот же результат ..

Если у кого-то есть какая-то информация, которая может мне помочь, это может быть действительно полезным для меня.

Большое спасибо.

Вот изображение моего документа Excel:

А вот результат строки: "Temps (i) = WsData.Cells (i+ 1, 1). Значение "

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...