Read Character from Excel file

[ebenozen]

I'm having a hard time reading string data from 1 Excel file into
another. The code works fine for numeric input, but reads bogus data
when reading strings.

Set wb = Workbooks.Open(path & fname, True, True)
With ThisWorkbook.Worksheets("chart_data")
.Cells(rw - 5, cl) = wb.Worksheets("Diorite").Cells(9,
5) 'Read character string text here doesn't work
.Cells(rw + 1, cl) = (wb.Worksheets("Diorite").Cells
(2, 2) + wb.Worksheets("Diorite").Cells(2, 4)) / 2 'Read numeric data
and calc works fine here
End With

I'm a novice user. Appreciate the help.

 

[macropod]

try:

With ThisWorkbookWorksheets("chart_data")
.Cells(rw - 5, cl).Value = wb.Worksheets("Diorite").Cells(9, 5).Value
.Cells(rw + 1, cl).Value = (wb.Worksheets("Diorite").Cells(2, 2).Value + _
wbWorksheets("Diorite").Cells(2, 4).Value) / 2
End With

 

[ebenozen]

try:

With ThisWorkbookWorksheets("chart_data")
  .Cells(rw - 5, cl).Value = wb.Worksheets("Diorite").Cells(9, 5).Value
  .Cells(rw + 1, cl).Value = (wb.Worksheets("Diorite").Cells(2, 2).Value + _
    wbWorksheets("Diorite").Cells(2, 4).Value) / 2
End With

--
Cheers
macropod
[MVP - Microsoft Word]

I'm having a hard time reading string data from 1 Excel file into
another.  The code works fine for numeric input, but reads bogus data
when reading strings.

Set wb = Workbooks.Open(path & fname, True, True)
With ThisWorkbook.Worksheets("chart_data")
               .Cells(rw - 5, cl) = wb.Worksheets("Diorite").Cells(9,
5) 'Read character string text here doesn't work
               .Cells(rw + 1, cl) = (wb.Worksheets("Diorite").Cells
(2, 2) + wb.Worksheets("Diorite").Cells(2, 4)) / 2 'Read numeric data
and calc works fine here
End With

I'm a novice user.  Appreciate the help.

Got it working. Thanks!