Извлечение информации из таблицы Excel

Question

В настоящее время я пытаюсь создать программу для извлечения информации из таблицы Excel, к сожалению, у меня нет собаки в этом бою, смеется. так или иначе, я в основном делаю кавычки и оценки, и я настроил Excel, мне просто нужно вывести специфическую c информацию из отдельных ячеек в формат "100 долларов США / фут". вместо этого я получаю 100.3216 ....... Также я ищу способ просто использовать короткие клавиши для генерации и сброса значений поля метки вместо нескольких кнопок.

Это то, что у меня до сих пор ........

Private Sub GetQuote_Click()

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open("C:\Users\tcreel\Documents\quoteautofill.xlsx")

ThisDocument.Label1.Caption = "Horizontal Straight Housing & Cable                         " & _
     exWb.Sheets("Quote Sheet").Cells(7, "O") 'horizontal footage price'

ThisDocument.Label2.Caption = "Vertical Straight Housing & Cable                               " & _
     exWb.Sheets("Quote Sheet").Cells(8, "O") 'verticle footage price'

ThisDocument.Label3.Caption = "Horizontal 90-degree Elbow & Cable                          " & _
     exWb.Sheets("Quote Sheet").Cells(9, "O") ' hor.90° elbow price'

ThisDocument.Label4.Caption = "Vertical 90-degree Elbow & Cable                                " & _
     exWb.Sheets("Quote Sheet").Cells(10, "O") 'vert. 90° price'

exWb.Close

Set exWb = Nothing

End Sub

Answer 1

Вы должны использовать код, например:

exWb.Sheets("Quote Sheet").Cells(7, "O").Text

(если ваша рабочая книга отображает содержимое в нужном формате вывода), или:

Format(exWb.Sheets("Quote Sheet").Cells(7, "O").Value, "$#,##0.00")

где "$ #, # # 0.00 "указывает желаемый формат вывода.