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
Cho m là muốn copy giá trị từ wb nay sang wb khác thì có cần thực hiện
Cho mình hỏi là muốn copy giá trị từ Workbook nay sang Workbook khác thì có cần thực hiện mở Workbook Source lên mới copy được ko? Đoạn lệnh bên dưới nó báo lỗi dòng cuối cùng.
Dim TenFile as String
TenFile = Application.GetOpenFilename("Excel file, *.xlsm", , "Browse For Your Pricing File", , False)
ThisWorkbook.Sheets("Inquiry_Quote Log").Range("K" & LastRow + 1).Value = Workbooks(TenFile).Sheets("Quotation").Range("G10").Value
5 câu trả lời
577 lượt xem
vỗ tay
Về nguyên tắc đúng là phải mở file lên mới copy nội dung được.
Sau khi copy nội dung xong bạn thêm lệnh đóng file đó lại.
vỗ tay
Vì Application.GetOpenFilename chỉ tạo thư mục chọn file, chọn file nào sẽ lấy ra tên file đó. Muốn lấy dữ liệu phải mở file đó lên.
Bạn có thể gán 1 biến đối tượng Workbooks cho file được chọn này, sau đó viết theo biến đó.
Bạn xem câu lệnh đúng dưới đây nhé:
Sub ViDu()
Dim TenFile As String
TenFile = Application.GetOpenFilename("Excel file, *.xls*", , "Browse For Your Pricing File", , False)
Dim wb As Workbook
Set wb = Workbooks.Open(TenFile)
ThisWorkbook.Sheets(1).Range("A1:A2").Value = wb.Sheets(1).Range("A1:A2").Value
wb.Close False
End Sub
vỗ tay
vỗ tay
vỗ tay
vỗ tay
Câu hỏi liên quan
Top
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