Xin trợ giúp code thêm sheet (1 người xem)

[nncb2008]

Chào cả nhà.
Đã lâu ko tham gia, quên vợi những gì đã học được ở đây rồi.
Em có việc này muốn phiền các bác.
Nội dung công việc: Mở file "C:\abcd.xls", chèn thêm một sheet "vidu" (nếu đã tồn tại thì bỏ qua), cái tên "vidu" nó cũng có khi xem ở cửa sổ VBA-Edit - tức là khi Alt_F11 thì phải thấy nó hiện "vidu(vidu)" chứ không phải "Sheet##(vidu)".
Chúc cả nhà vui vẻ.

 

[Quang_Hải]

Chào cả nhà.
Đã lâu ko tham gia, quên vợi những gì đã học được ở đây rồi.
Em có việc này muốn phiền các bác.
Nội dung công việc: Mở file "C:\abcd.xls", chèn thêm một sheet "vidu" (nếu đã tồn tại thì bỏ qua), cái tên "vidu" nó cũng có khi xem ở cửa sổ VBA-Edit - tức là khi Alt_F11 thì phải thấy nó hiện "vidu(vidu)" chứ không phải "Sheet##(vidu)".
Chúc cả nhà vui vẻ.

Code này chắc chắn là chạy OK nhưng phải check mục Trust Center và mục Micro ...........5.3 trong Reference nữa.

Sub themsheet()
Dim sh As Worksheet
For Each sh In Worksheets
   If sh.Name = "Vidu" Then
      Exit Sub
   End If
Next
Sheets.Add.Name = "Vidu"
Application.VBE.ActiveVBProject.VBComponents(ActiveWorkbook.Sheets("Vidu").CodeName).Name = "Vidu"
End Sub

 

[siwtom]

Chào cả nhà.
Đã lâu ko tham gia, quên vợi những gì đã học được ở đây rồi.
Em có việc này muốn phiền các bác.
Nội dung công việc: Mở file "C:\abcd.xls", chèn thêm một sheet "vidu" (nếu đã tồn tại thì bỏ qua), cái tên "vidu" nó cũng có khi xem ở cửa sổ VBA-Edit - tức là khi Alt_F11 thì phải thấy nó hiện "vidu(vidu)" chứ không phải "Sheet##(vidu)".
Chúc cả nhà vui vẻ.

"Mở file "C:\abcd.xls", chèn thêm một sheet "vidu"" nghĩa là:

1. Người dùng mở tập tin "C:\abcd.xls", và tập tin đó có code để thêm sheet cho mình

2. Người dùng đang làm việc vd. với tập tin "hichic.xls" và tập tin này có code để mở "C:\abcd.xls" và thêm vào cho nó 1 sheet mới?

Nếu là trường hợp 1 thì bỏ dòng Application.Workbooks.Open "c:\tra cuu.xls"
Không phải tham chiếu gì cả.

Ví dụ

Sub Button1_Click()
Dim sh As Worksheet, bad As Boolean
    Application.Workbooks.Open "c:\tra cuu.xls"
    For Each sh In Worksheets
        If [COLOR=#ff0000]sh.Name[/COLOR] = "vidu" Or [COLOR=#ff0000]sh.CodeName[/COLOR] = "vidu" Then
            bad = True
            Exit For
        End If
    Next
    If Not bad Then
        Set sh = Sheets.Add
        sh.Name = "vidu"
        ActiveWorkbook.VBProject.VBComponents(sh.CodeName).Name = "vidu"
    End If
End Sub

 

[siwtom]

Code này chắc chắn là chạy OK nhưng phải check mục Trust Center và mục Micro ...........5.3 trong Reference nữa.

Sub themsheet()
Dim sh As Worksheet
For Each sh In Worksheets
   If sh.Name = "Vidu" Then
      Exit Sub
   End If
Next
Sheets.Add.Name = "Vidu"
Application.VBE.ActiveVBProject.VBComponents(ActiveWorkbook.Sheets("Vidu").CodeName).Name = "Vidu"
End Sub

Cũng chưa chắc chắn đâu bạn hiền ạ. Nếu đã có sheet với CodeName = "vidu" thì sheet mới thêm vào không có quyền nhận tên đó nữa.
Cũng không cần tham chiếu đâu.
-----------
Tôi ý kiến như trên vì không thấy chủ chủ đề nói: "Chắc chắn chưa có sheet nào có CodeName = "vidu""
Nếu bây giờ thêm thông tin đỏ đỏ thì ...