工作簿簿vba vba新建工作簿

你是咋个新建的,用activeworkbook 这种不好控制,最好把添加工作簿赋值给一个对象变量.我弄了段添加工作簿代码,你参考一下.Option Explicit Sub wb_add() Dim .

要做一个跨工作簿的查找,现在呢,我查找和被查找的两个工作簿的切换是靠"workbooks(1)"和"workbooks(2)”来切换的,workbooks(1)就代表第一个工作表,workbook.

用16进制编辑工具,如winhex、ultraedit-32等,再厉害点的人完全可以用debug命令来做..用以上软件打开excel文件,查找定位以下地方::将cmg=,dpb=和gc=后的＂=＂替换为＂.＂,即可.

set Awk=activeworkbook'Awk为当前工作簿workbooks.addset Bwk=activeworkbook'Bwk为新建工作簿Awk.activate如不满意写vbs吧,其中可以设置excel对象为不可见对象.

Sub temp() ActiveSheet.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & ＂\a.xls＂ Workbooks(＂a.xls＂).Close True End Sub

你的意思是要这个跳转按钮的vba代码?这个很简单的. 你在excel中按下alt+f11,在出现的vba编辑窗口中的菜单--插入---模块.然后在模块右边的空白窗口中输入代码 sub s()sheets(＂sheet6＂).selectend sub 然后在按钮上右击--指定宏--打到名称为s的这个宏确定就可以了.

添加工作表后直接改名:Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = ＂90＂

建立工作簿的VBA语句是:workbooks.Add 如果需要建议多个,多写几行,或者使用循环

Sub s() Dim wb As Workbook Set wb = Application.Workbooks.Add '在此插入操作代码 wb.SaveAs Filename:=＂d:\test.xlsx＂ '在此输入新建工作簿的文件名,包括完整路径和扩展名 wb.Close End Sub

sub macro6() workbooks.add activeworkbook.saveas filename:= _ ＂路径\计算结果.xlsx＂, fileformat:= _ xlopenxmlworkbook, createbackup:=false sheets(＂工作表名＂).range(＂a1＂) = c1 activeworkbook.save activewindow.close end sub