Chương trình cóp tự động từ file txt sang file excel có nhiều sheet

[thanhtung411]

Các anh chị cho e hỏi e có 2 file t2m_00.txt và file solieu.xlsx. Em muốn cóp sl từ file t2m_00.txt sang file solieu.xlsx có 3 sheet ngay1, ngay2, ngay3 và chương trình có thể tùy chỉnh theo tên 3 sheet trên ah. Em xin cảm ơn ah.

 

[Tình nghĩa giang hồ]

Các anh chị cho e hỏi e có 2 file t2m_00.txt và file solieu.xlsx. Em muốn cóp sl từ file t2m_00.txt sang file solieu.xlsx có 3 sheet ngay1, ngay2, ngay3 và chương trình có thể tùy chỉnh theo tên 3 sheet trên ah. Em xin cảm ơn ah

Code mẫu từ GPT, phải biết sửa lại theo ý mình muốn nhé. Không có bê nguyên si

Sub CopyData()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet

'Open t2m_00.txt file
Set wb1 = Workbooks.Open("C:\t2m_00.txt")

'Open solieu.xlsx file
Set wb2 = Workbooks.Open("C:\solieu.xlsx")

'Set sheet1 as the first sheet in wb1
Set sheet1 = wb1.Sheets(1)

'Get the name of the sheet to be copied to
sheetName = InputBox("Enter the name of the sheet to copy data to:", "Sheet Name")

'Set sheet2 as the specified sheet in wb2
Set sheet2 = wb2.Sheets(sheetName)

'Copy the data from sheet1 to sheet2
sheet1.Range("A1:Z1000").Copy sheet2.Range("A1")

'Save and close both workbooks
wb1.Close True
wb2.Close True

End Sub

Bạn cần đặt đường dẫn đến file t2m_00.txt và solieu.xlsx chính xác trong dòng Workbooks.Open và đặt tên sheet mới cho sheetName trong hộp thoại InputBox.

 

[thanhtung411]

Code mẫu từ GPT, phải biết sửa lại theo ý mình muốn nhé. Không có bê nguyên si

Sub CopyData()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet

'Open t2m_00.txt file
Set wb1 = Workbooks.Open("C:\t2m_00.txt")

'Open solieu.xlsx file
Set wb2 = Workbooks.Open("C:\solieu.xlsx")

'Set sheet1 as the first sheet in wb1
Set sheet1 = wb1.Sheets(1)

'Get the name of the sheet to be copied to
sheetName = InputBox("Enter the name of the sheet to copy data to:", "Sheet Name")

'Set sheet2 as the specified sheet in wb2
Set sheet2 = wb2.Sheets(sheetName)

'Copy the data from sheet1 to sheet2
sheet1.Range("A1:Z1000").Copy sheet2.Range("A1")

'Save and close both workbooks
wb1.Close True
wb2.Close True

End Sub

Bạn cần đặt đường dẫn đến file t2m_00.txt và solieu.xlsx chính xác trong dòng Workbooks.Open và đặt tên sheet mới cho sheetName trong hộp thoại InputBox.
View attachment 286206

vâng e cảm ơn nhiều ah

 

[snow25]

Code mẫu từ GPT, phải biết sửa lại theo ý mình muốn nhé. Không có bê nguyên si

Sub CopyData()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet

'Open t2m_00.txt file
Set wb1 = Workbooks.Open("C:\t2m_00.txt")

'Open solieu.xlsx file
Set wb2 = Workbooks.Open("C:\solieu.xlsx")

'Set sheet1 as the first sheet in wb1
Set sheet1 = wb1.Sheets(1)

'Get the name of the sheet to be copied to
sheetName = InputBox("Enter the name of the sheet to copy data to:", "Sheet Name")

'Set sheet2 as the specified sheet in wb2
Set sheet2 = wb2.Sheets(sheetName)

'Copy the data from sheet1 to sheet2
sheet1.Range("A1:Z1000").Copy sheet2.Range("A1")

'Save and close both workbooks
wb1.Close True
wb2.Close True

End Sub

Bạn cần đặt đường dẫn đến file t2m_00.txt và solieu.xlsx chính xác trong dòng Workbooks.Open và đặt tên sheet mới cho sheetName trong hộp thoại InputBox.
View attachment 286206

Nếu mà nhìn cái này mà code được bài này mà phải lên đây nhờ thì có vẻ hơi vô lý.

 

[thanhtung411]

vâng e cảm ơn nhiều ah

nhưng nếu e muốn gán riêng tên sheet để có thể mở tùy chọn các tên sheet khác nhau thì làm thế nào ah.

 

[Tình nghĩa giang hồ]

nhưng nếu e muốn gán riêng tên sheet để có thể mở tùy chọn các tên sheet khác nhau thì làm thế nào ah.

Bạn có thể sử dụng hàm InputBox để nhập tên sheet cần ghi dữ liệu từ tập tin t2m_00.txt. Đoạn code sau sẽ làm điều đó:

sheetName = InputBox("Enter the name of the sheet to copy data to:", "Sheet Name")
Set sheet2 = wb2.Sheets(sheetName)

Nhưng mà bạn lưu ý đừng có viết tắt trong diễn đàn này nhé. Như chữ em thì ghi rõ ra đi. Nhiều anh chị không có thích viết tắt đâu

 

[thanhtung411]

Bạn có thể sử dụng hàm InputBox để nhập tên sheet cần ghi dữ liệu từ tập tin t2m_00.txt. Đoạn code sau sẽ làm điều đó:

sheetName = InputBox("Enter the name of the sheet to copy data to:", "Sheet Name")
Set sheet2 = wb2.Sheets(sheetName)

Nhưng mà bạn lưu ý đừng có viết tắt trong diễn đàn này nhé. Như chữ em thì ghi rõ ra đi. Nhiều anh chị không có thích viết tắt đâu

Vâng em cảm ơn nhiều ah, để em thử xem thế nào ah

 

[Tình nghĩa giang hồ]

Vâng em cảm ơn nhiều ah, để em thử xem thế nào ah

Hồi trước mình có làm chuyển dữ liệu từ Excel sang file text (txt) thì bình thường.
Nhưng ở chiều ngược lại, từ text (txt) sang Excel thì không biết có được hay không?
Code ở trên là của GPT đó, chưa được kiểm chứng, tính đúng sai. Khả năng cao là không được.
Nếu không được thì hỏi thêm các anh chị GPE nhé.