代码作用对象修改自己录的帮帮忙哈

kxlong3134 · 发表于 2013-1-13 12:44

Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ChDir "C:\Documents and Settings\Administrator\桌面"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("Sheet1").Cells(3, 1) & ".xls"

这个代码的作用是将工作表另存为单一工作簿路径为桌面我的问题是现在录的代码只对工作表为Sheet1的起作用我需要的是对当前编辑的工作表（工作表名不为Sheet1）不知道怎么改请伸手哈{:soso_e100:}

gujiejack2 · 发表于 2013-1-13 12:56

activesheet.Copy
ChDir "C:\Documents and Settings\Administrator\桌面"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Sheets("Sheet1").Cells(3, 1) & ".xls"

复制代码

kxlong3134 · 发表于 2013-1-13 13:10

本帖最后由 kxlong3134 于 2013-1-13 13:17 编辑

gujiejack2 发表于 2013-1-13 12:56

  ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("Sheet1").Cells(3, 1) & ".xls"
这一句中的sheet1  还没改运行时下标越界  帮忙看看哈

谢谢哈  已改好  ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets(1).Cells(3, 1) & ".xls"
非常感谢

		自动登录	找回密码
密码			免费注册

代码作用对象修改 自己录的 帮帮忙哈

代码作用对象修改自己录的帮帮忙哈