Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Ban ơi cho hỏi là dung lệnh gì để tạo...
Ban ơi cho hỏi là dung lệnh gì để tạo một cột khác nhằm ghi chú xem dữ liệu thuộc file nào được không?
Ví dụ a1: tên file 1 >B1: dữ liệu
a8: tên file 2>B8: dữ liệu file 2
Mình cảm ơn bạn!
Ví dụ a1: tên file 1 >B1: dữ liệu
a8: tên file 2>B8: dữ liệu file 2
Mình cảm ơn bạn!
3 câu trả lời
213 lượt xem
vỗ tay
Chia sẻ
Người dùng ẩn danh
17:05 - May 04, 2018
Set rst = cnn.Execute("SELECT *,""" & files(k) & """ as [From File] FROM [" & SheetName & RangeAddress & "]")
vỗ tay
trinh
15:05 - May 08, 2018
Sub gop_file_excel()
Dim FilesToOpen
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim wb As Workbook
Dim x As Long, lr As Long
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename( _
FileFilter:="CSV Files(*.csv),*.csv", MultiSelect:=True, Title:="chon file")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Khong co Files"
Exit Sub
End If
x = 1
While x <= UBound(FilesToOpen)
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
If x = 1 Then
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A50:p50")
Else
lr = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
wb.Sheets(1).UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Range("A" & lr + 1)
End If
Set rst = cnn.Execute("Select *,""" & FilesToOpen(x) & """ as [from file] From [" & Sheetname & RangeAddress & "]")
wb.Close False
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub
Dim FilesToOpen
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim wb As Workbook
Dim x As Long, lr As Long
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename( _
FileFilter:="CSV Files(*.csv),*.csv", MultiSelect:=True, Title:="chon file")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Khong co Files"
Exit Sub
End If
x = 1
While x <= UBound(FilesToOpen)
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
If x = 1 Then
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A50:p50")
Else
lr = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
wb.Sheets(1).UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Range("A" & lr + 1)
End If
Set rst = cnn.Execute("Select *,""" & FilesToOpen(x) & """ as [from file] From [" & Sheetname & RangeAddress & "]")
wb.Close False
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub
vỗ tay
trinh
15:05 - May 08, 2018
a check hộ em xem sai đoạn nào dk ko ạ. Em chạy mà ko dk
vỗ tay
Câu hỏi liên quan
Top
(Giờ làm việc: 8h30 - 18h, nghỉ chiều thứ 7 và CN)
Những câu hỏi thường gặp
Hướng dẫn đăng ký khoá học
Hướng dẫn đăng nhập
Hướng dẫn lấy lại mật khẩu
Hướng dẫn thanh toán khóa học sau khi đăng ký thành công
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông