Thắc mắc đổi tên sheet theo tên file (1 người xem)

[tu205489039]

chào mọi người, giả sử mình có file md1 với 1 sheet:"sheet1", làm cách nào để tên sheet từ :"sheet1" trở thành "md1" không mọi người.
Mình cảm ơn.

 

[Ba Tê]

chào mọi người, giả sử mình có file md1 với 1 sheet:"sheet1", làm cách nào để tên sheet từ :"sheet1" trở thành "md1" không mọi người.
Mình cảm ơn.

Kích đúp vào tên sheet, nhập "md1", Enter.

 

[tu205489039]

Đợi mình chút, để mình gửi file, nhà mất mạng mất tiêu :3

 

[tu205489039]

Option Explicit

Sub GopFileExcel()
    Dim openfiles
    Dim x As Integer
    Dim selectversion As String
    selectversion = Worksheets("Huong dan").Range("B4").Value
    Dim ver As String
    If selectversion = "2003" Then
    ver = "xls"
    Else
    ver = "xlsx"
    End If
    
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    openfiles = Application.GetOpenFilename _
      (FileFilter:="Microsoft Excel Files (*." & ver & "), *." & ver, _
      MultiSelect:=True, Title:="Open Files")

    If TypeName(openfiles) = "Boolean" Then
        MsgBox "BAN PHAI CHON ÍT NHÁT LÀ 1 FILE"
        GoTo ExitHandler
    End If

    x = 1
    While x <= UBound(openfiles)
        Workbooks.Open Filename:=openfiles(x)
        Sheets().Move After:=ThisWorkbook.Sheets _
          (ThisWorkbook.Sheets.Count)
        x = x + 1
    Wend

ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub

ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

Với đoạn code này, khi bắt đầu gọp sheet thì nó lấy luôn tên của các sheet con, có cách nào thay vì sheet 1 nó đổi lại thành tên file như đính kèm thành "a"; "b".
Nình cảm ơn

 

[PacificPR]

Option Explicit

Sub GopFileExcel()
    Dim openfiles
    Dim x As Integer
    Dim selectversion As String
    selectversion = Worksheets("Huong dan").Range("B4").Value
    Dim ver As String
    If selectversion = "2003" Then
    ver = "xls"
    Else
    ver = "xlsx"
    End If
   
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    openfiles = Application.GetOpenFilename _
      (FileFilter:="Microsoft Excel Files (*." & ver & "), *." & ver, _
      MultiSelect:=True, Title:="Open Files")

    If TypeName(openfiles) = "Boolean" Then
        MsgBox "BAN PHAI CHON ÍT NHÁT LÀ 1 FILE"
        GoTo ExitHandler
    End If

    x = 1
    While x <= UBound(openfiles)
        Workbooks.Open Filename:=openfiles(x)
        Sheets().Move After:=ThisWorkbook.Sheets _
          (ThisWorkbook.Sheets.Count)
        x = x + 1
    Wend

ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub

ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

Với đoạn code này, khi bắt đầu gọp sheet thì nó lấy luôn tên của các sheet con, có cách nào thay vì sheet 1 nó đổi lại thành tên file như đính kèm thành "a"; "b".
Nình cảm ơn

Bạn thử xem file xem có đúng không nha

 

[tu205489039]

wow, bạn quá giỏi, chuẩn đến mức không cần chỉnh luôn bạn

 

[quang85vn]

chính là code này, nhưng không chay được tren 2010. minh nghĩ do ten dài quá