VBA創(chuàng)建新工作簿并在內(nèi)按要求創(chuàng)建新表

歡歡

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 "創(chuàng)建完成！", 64, "歡樂小爪"
         Application.ScreenUpdating = True
End Sub

grass761

創(chuàng)建新工作表y.xls可以用這個(gè)方法
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
請(qǐng)告訴我哦
謝謝

tanhong

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

tanhong

你試著按上面的修改試試看

grass761

結(jié)果非常滿意
我想再問的是 我想反復(fù)讀取Sheet1中cells(1,1)內(nèi)數(shù)據(jù)（數(shù)據(jù)可以由外面獲得也可以由人為自行填寫進(jìn)去），然后將讀取的數(shù)據(jù)依次填寫到Sheet2中的單元格中，并且每次讀出保存的數(shù)據(jù)都對(duì)應(yīng)有讀出的時(shí)間。這個(gè)問題您幫忙解答下。謝謝！


老師請(qǐng)幫忙解答下 謝謝。

tanhong

原帖由 grass761 于 2008-4-1 16:25 發(fā)表
結(jié)果非常滿意
我想再問的是 我想反復(fù)讀取Sheet1中cells(1,1)內(nèi)數(shù)據(jù)（數(shù)據(jù)可以由外面獲得也可以由人為自行填寫進(jìn)去），然后將讀取的數(shù)據(jù)依次填寫到Sheet2中的單元格中，并且每次讀出保存的數(shù)據(jù)都對(duì)應(yīng)有讀出的時(shí)間。這 ...

建議把問題發(fā)到論壇綜合區(qū)

wodeyouxi

謝謝您。我最需要的就是這個(gè)。

huangkai945

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

roych

我也來試試吧：
第一次寫VBA，不好的地方多多指教。
Sub SheetsAdd()
'計(jì)算非空單元格個(gè)數(shù)，獲取需要增加的工作表
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的單元格數(shù)值命名表
Sheets(i).Name = Sheets(1).Range("A" & i).Value
Next i
End Sub

joyark

老大向來是偏心的,我們都習(xí)慣了