Code tự động tạo Wrokbook mới báo Read-only (2 người xem)

[Hoàng Tuyên]

Private Sub CmdGui_Click()Dim Tu, Den As String
Dim WorkNew As Workbook


Set WorkNew = Workbooks.Add
[COLOR=#ff0000]WorkNew.Name = Left(Sheet2.Cells(1, 1).Value, 8) & Date[/COLOR]
End Sub

Mình tạo Form khi nhấp vào nút Command sẽ tự động tạo ra một file excel mới. Đặt tên theo cell A1 ở sheet2 nhưng bị báo lỗi "Can't assign to read-only property"
Mình gửi file lên nhờ các thầy cô giúp đỡ khắc phục lỗi ạ.
Cảm ơn các thầy cô GPE nhiều.

 

[Hoàng Tuyên]

Private Sub CmdGui_Click()
Dim WorkNew As Workbook

Set WorkNew = Workbooks.Add
[COLOR=#ff0000]WorkNew.Name = Left(Sheet2.Cells(1, 1).Value, 8) & Date[/COLOR]
End Sub

Có bạn nào giúp mình đoạn code tự động đặt tên cho file exel mới tạo không?
Chỗ màu đỏ mình chưa hiểu sai chỗ nào, các bạn giải thích và sửa giúp mình với.

 

[Hau151978]

Private Sub CmdGui_Click()
Dim WorkNew As Workbook

Set WorkNew = Workbooks.Add
[COLOR=#ff0000]WorkNew.Name = Left(Sheet2.Cells(1, 1).Value, 8) & Date[/COLOR]
End Sub

Có bạn nào giúp mình đoạn code tự động đặt tên cho file exel mới tạo không?
Chỗ màu đỏ mình chưa hiểu sai chỗ nào, các bạn giải thích và sửa giúp mình với.

Method Add tự động đặt tên workbook mới là Book1... mà không có lựa chọn đặt tên, việc này cũng tương tự khi bấm Ctrl-N để tạo workbook mới. Để đặt tên, bạn dùng lệnh sau

Set WorkNew = Workbooks.Add
WorkNew.SaveAs Filename:=(Left(Sheet2.Cells(1, 1).Value, 8) & Tu & Den & ".xls")

 

[ndu96081631]

Private Sub CmdGui_Click()Dim Tu, Den As String
Dim WorkNew As Workbook


Set WorkNew = Workbooks.Add
[COLOR=#ff0000]WorkNew.Name = Left(Sheet2.Cells(1, 1).Value, 8) & Date[/COLOR]
End Sub

Mình tạo Form khi nhấp vào nút Command sẽ tự động tạo ra một file excel mới. Đặt tên theo cell A1 ở sheet2 nhưng bị báo lỗi "Can't assign to read-only property"
Mình gửi file lên nhờ các thầy cô giúp đỡ khắc phục lỗi ạ.
Cảm ơn các thầy cô GPE nhiều.

Thì đương nhiên vậy rồi. Tên của Workbook sao bạn tự đặt được chứ
Bạn cứ Save As Workbook mới này thì nó tự có tên thôi
Ví dụ:

Private Sub CmdGui_Click()
  Dim Tu, Den As String
  Dim WorkNew As Workbook
  [COLOR=#ff0000]Dim sName As String[/COLOR]
  Set WorkNew = Workbooks.Add
  [COLOR=#ff0000]sName = Left(Sheet2.Cells(1, 1).Value, 8) & Tu & Den[/COLOR]
  [COLOR=#ff0000]WorkNew.SaveAs ThisWorkbook.Path & "\" & sName & ".xls", xlExcel8[/COLOR]
End Sub

Đại khái vậy!
Chỗ màu đỏ là chỗ thêm vào