VBA创建新工作簿并在内按要求创建新表

欢欢

Sub 新建工作簿指定工作表名()  '方法二
  Dim intName%, myRng&
   Application.ScreenUpdating = False
     myRng = Sheet1.[A65536].End(xlUp).Row
       Application.SheetsInNewWorkbook = myRng
        Workbooks.Add
For intName = 1 To myRng
    Sheets("sheet" & intName).Name = Sheet1.Cells(intName, 1)
Next intName
   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\小爪.xls"
     ActiveWorkbook.Close savechanges:=True
       MsgBox "创建完成！", 64, "欢乐小爪"
         Application.ScreenUpdating = True
End Sub

grass761

创建新工作表y.xls可以用这个方法
Set NewBook = Workbooks.Add
NewBook.SaveAs Filename:="D:\y.xls"

但是我想问的是
假如我想通过文本框
为新建的工作表命名什么不可以呢

我的程序是这样的
Private Sub CommandButton1_Click()
Dim y As String
y = x.Text

Set NewBook = Workbooks.Add
NewBook.SaveAs Filename:="D:\y.xls"
End Sub
请告诉我哦
谢谢

tanhong

NewBook.SaveAs Filename:="D:\" & y & ".xls"

tanhong

你试着按上面的修改试试看

grass761

结果非常满意
我想再问的是 我想反复读取Sheet1中cells(1,1)内数据（数据可以由外面获得也可以由人为自行填写进去），然后将读取的数据依次填写到Sheet2中的单元格中，并且每次读出保存的数据都对应有读出的时间。这个问题您帮忙解答下。谢谢！


老师请帮忙解答下 谢谢。

tanhong

原帖由 grass761 于 2008-4-1 16:25 发表
结果非常满意
我想再问的是 我想反复读取Sheet1中cells(1,1)内数据（数据可以由外面获得也可以由人为自行填写进去），然后将读取的数据依次填写到Sheet2中的单元格中，并且每次读出保存的数据都对应有读出的时间。这 ...

建议把问题发到论坛综合区

wodeyouxi

谢谢您。我最需要的就是这个。

huangkai945

呵呵  
   先整回去好好研究下，感谢

roych

我也来试试吧：
第一次写VBA，不好的地方多多指教。
Sub SheetsAdd()
'计算非空单元格个数，获取需要增加的工作表
SheetCount = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A"))
For i = 1 To SheetCount - 1
'增加表
Sheets.Add after:=Sheets(i)
Next i
For i = 1 To SheetCount
'提取Sheet1的单元格数值命名表
Sheets(i).Name = Sheets(1).Range("A" & i).Value
Next i
End Sub

joyark

老大向来是偏心的,我们都习惯了