Question

把excel的一整行赋值给另一个新开的excel用vb怎么写，本人超级小白！

Answer 1

是VBA，range(原来的行).copy sheets(新表名字").range(新一的位置)

追问

Dim xlapp As Excel.Application……
Set xlsapp1 = CreateObject("Excel.Application")'建立新excel
Set xlBook1
set xlSheet1……
Set xlapp = CreateObject("Excel.Application")’打开旧excel

Set xlBook ……
Set xlSheet = xlBook.Worksheets("x1")
xlSheet.Range("A1").Copy Sheets("sheet1").rang("A1")

xlBook1.SaveAs "f:\工作薄.xlsx"
这么写对吗？运行出来的工作簿.xlsx是个空excel。求解答！