Problems charging data from Excel to VB.net?
I have somes troubles to get the value of an excel cell with vb.net.
In fact i have a excel or csv file which contains data from a test. The first column contains times points and the second one contains Power data.
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
But when I'm looking the result of "Temps(i) = WsData.Cells(i + 1, 1).Value" the result is : "0.07 55" instead of "0.0755". A space are inserted right in the middle of the value of my cell and I can't use it to anything.
in order to fix that I tried to format the column as Text but nothing change. I replace Range by cells but this is the same result ..
If somebody have some informations to help me it coud be really usefull for me.
Thanks a lot.
Here is a picture of my excel doc :
And here is the result of the ligne :"Temps(i) = WsData.Cells(i + 1, 1).Value"
excel vb.net
add a comment |
I have somes troubles to get the value of an excel cell with vb.net.
In fact i have a excel or csv file which contains data from a test. The first column contains times points and the second one contains Power data.
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
But when I'm looking the result of "Temps(i) = WsData.Cells(i + 1, 1).Value" the result is : "0.07 55" instead of "0.0755". A space are inserted right in the middle of the value of my cell and I can't use it to anything.
in order to fix that I tried to format the column as Text but nothing change. I replace Range by cells but this is the same result ..
If somebody have some informations to help me it coud be really usefull for me.
Thanks a lot.
Here is a picture of my excel doc :
And here is the result of the ligne :"Temps(i) = WsData.Cells(i + 1, 1).Value"
excel vb.net
There is nothing in this VBA that would cause that. I suspect you might have some oddball unicode hanging out in your data that isn't showing in the front end, but is visible in VBA and is being represented by a space (total guess since there really isn't anything else I can see wrong here).
– JNevill
Nov 28 '18 at 17:37
add a comment |
I have somes troubles to get the value of an excel cell with vb.net.
In fact i have a excel or csv file which contains data from a test. The first column contains times points and the second one contains Power data.
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
But when I'm looking the result of "Temps(i) = WsData.Cells(i + 1, 1).Value" the result is : "0.07 55" instead of "0.0755". A space are inserted right in the middle of the value of my cell and I can't use it to anything.
in order to fix that I tried to format the column as Text but nothing change. I replace Range by cells but this is the same result ..
If somebody have some informations to help me it coud be really usefull for me.
Thanks a lot.
Here is a picture of my excel doc :
And here is the result of the ligne :"Temps(i) = WsData.Cells(i + 1, 1).Value"
excel vb.net
I have somes troubles to get the value of an excel cell with vb.net.
In fact i have a excel or csv file which contains data from a test. The first column contains times points and the second one contains Power data.
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
But when I'm looking the result of "Temps(i) = WsData.Cells(i + 1, 1).Value" the result is : "0.07 55" instead of "0.0755". A space are inserted right in the middle of the value of my cell and I can't use it to anything.
in order to fix that I tried to format the column as Text but nothing change. I replace Range by cells but this is the same result ..
If somebody have some informations to help me it coud be really usefull for me.
Thanks a lot.
Here is a picture of my excel doc :
And here is the result of the ligne :"Temps(i) = WsData.Cells(i + 1, 1).Value"
excel vb.net
excel vb.net
edited Nov 28 '18 at 17:17
Jean-Baptiste Moria
asked Nov 28 '18 at 14:23
Jean-Baptiste MoriaJean-Baptiste Moria
11
11
There is nothing in this VBA that would cause that. I suspect you might have some oddball unicode hanging out in your data that isn't showing in the front end, but is visible in VBA and is being represented by a space (total guess since there really isn't anything else I can see wrong here).
– JNevill
Nov 28 '18 at 17:37
add a comment |
There is nothing in this VBA that would cause that. I suspect you might have some oddball unicode hanging out in your data that isn't showing in the front end, but is visible in VBA and is being represented by a space (total guess since there really isn't anything else I can see wrong here).
– JNevill
Nov 28 '18 at 17:37
There is nothing in this VBA that would cause that. I suspect you might have some oddball unicode hanging out in your data that isn't showing in the front end, but is visible in VBA and is being represented by a space (total guess since there really isn't anything else I can see wrong here).
– JNevill
Nov 28 '18 at 17:37
There is nothing in this VBA that would cause that. I suspect you might have some oddball unicode hanging out in your data that isn't showing in the front end, but is visible in VBA and is being represented by a space (total guess since there really isn't anything else I can see wrong here).
– JNevill
Nov 28 '18 at 17:37
add a comment |
0
active
oldest
votes
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53521620%2fproblems-charging-data-from-excel-to-vb-net%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
0
active
oldest
votes
0
active
oldest
votes
active
oldest
votes
active
oldest
votes
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53521620%2fproblems-charging-data-from-excel-to-vb-net%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
There is nothing in this VBA that would cause that. I suspect you might have some oddball unicode hanging out in your data that isn't showing in the front end, but is visible in VBA and is being represented by a space (total guess since there really isn't anything else I can see wrong here).
– JNevill
Nov 28 '18 at 17:37