VBA-Excel 2010 Macro Error "memeber or data method not found" -

VBA-Excel 2010 Macro Error "memeber or data method not found" -

i know super generic error new vba / macros , cant past this.

i have , excel workbook has info need re-create excel workbook. excel workbook info copied on network share , written frequently.

here macro code:

sub export() dim exportfile string dim importsheet string dim rowdata string exportfile = "\\<server>\spd\_spec_paradata\data_import.xlsx" importsheet = "outputvalues" importrange = "a2:zz2" ' row workbook running in rowdata = workbooks().worksheets(importsheet).range(importrange) ' not sure if work, or overwrite lastly row. may need .row+1 newrow = workbooks(exportfile).worksheets(1).cells(rows.count, "a").end(xlup).row exportrange = "a" & (newrow + 1) & ":zz" & (newrow + 1) ' assuming workbooks() gets current workbook. workbooks(exportfile).sheets(exportsheet).range(exportrange) = workbooks().sheets(importsheet).range(importrange) end sub

my error poping on rowdata=workbooks(exportfile).worksheets

can help me figure out doing wrong?

thank you, jennifer

try code next modifications, i'm opening workbook , referencing worksheet (i guess problem that). i'm closing workbook straight after.

sub export() dim exportfile string dim importsheet string dim rowdata string dim wb workbook dim ws1 worksheet, ws2 worksheet exportfile = "\\<server>\spd\_spec_paradata\data_import.xlsx" importsheet = "outputvalues" importrange = "a2:zz2" 'open workbook , point spreadsheet set wb = workbooks.open(exportfile) set ws1 = wb.sheets(importsheet) ' row workbook running in rowdata = wb.ws.range(importrange) ' not sure if work, or overwrite lastly row. may need .row+1 newrow = wb.worksheets(1).cells(rows.count, "a").end(xlup).row exportrange = "a" & (newrow + 1) & ":zz" & (newrow + 1) 'note: consider definying variable "exportsheet", illustration purpose dim exportsheet string: exportsheet = "inputvalues" set ws2 = wb.sheets(exportsheet) ' assuming workbooks() gets current workbook. wb.ws2.range(exportrange) = wb.ws1.range(importrange) wb.close end sub

excel vba