Xin chỉ giáo code VBA copy file csv , thay đổi tỉ giá và lưu file csv mới

daoduy88 · Thứ năm lúc 12:01

Em xin chào các anh chị và các bạn

em có file data *****.csv dưới , em muốn nhờ các anh chị hỗ trợ code giúp em file như yêu cầu dưới với ạ

1. Từ file excel vba. ô A4 sheet1 nhập tỉ giá : vd 25000
2. Click button lựa chọn file .csv bất kỳ (File chung định dạng như đính kèm)
3. Từ file được lựa chọn nếu cột AH = USD thì không làm gì, nếu cột AH = VND thì đổi cột AJ/ tỉ giá
4. Tự động lưu lại file mới .csv có tên = tên sheet & "-1"

EM XIN CẢM ƠN Ạ !

daoduy88 · Thứ năm lúc 16:11

các anh chị giúp em với ạ. em cảm ơn

befaint · Thứ năm lúc 16:12

Em úp 2 files đó lên đi.

daoduy88 · Thứ năm lúc 16:14

dạ đây ạ, em muốn thêm 1 chức năng đó vào file chuyển đổi vnd-usd ạ. nhờ bác giúp em với. em không biết code nhìn không biết làm kiểu gì ạ. em cảm ơn bác

Bài đã được tự động gộp: Thứ năm lúc 16:14

daoduy88 đã viết:
dạ đây ạ, em muốn thêm 1 chức năng đó vào file chuyển đổi vnd-usd ạ. nhờ bác giúp em với. em không biết code nhìn không biết làm kiểu gì ạ. em cảm ơn bác

Bài đã được tự động gộp: Thứ năm lúc 16:15

Hoàng Tuấn 868 · Thứ năm lúc 16:15

befaint đã viết:
Em úp 2 files đó lên đi.

daoduy88 đã viết:
dạ đây ạ, em muốn thêm 1 chức năng đó vào file chuyển đổi vnd-usd ạ. nhờ bác giúp em với. em không biết code nhìn không biết làm kiểu gì ạ. em cảm ơn bác

Bảo đưa 2 files lên thì chỉ đưa có 1, tiết kiệm quá.

daoduy88 · Thứ năm lúc 16:16

Hoàng Tuấn 868 đã viết:
Bảo đưa 2 file lên thì chỉ đưa có 1, tiết kiệm quá.

em up file csv nó ko nhận ấy bác, em vừa nén lại để gửi lại ạ

HUONGHCKT · Thứ năm lúc 19:50

daoduy88 đã viết:
dạ đây ạ, em muốn thêm 1 chức năng đó vào file chuyển đổi vnd-usd ạ. nhờ bác giúp em với. em không biết code nhìn không biết làm kiểu gì ạ. em cảm ơn bác

Bài đã được tự động gộp: Thứ năm lúc 16:14

Bài đã được tự động gộp: Thứ năm lúc 16:15

Tham khảo đoạn code sau:

Mã:

........
 originalFileName = Mid(filePath, InStrRev(filePath, "\") + 1, Len(filePath))

    Set wbSource = Workbooks.Open(filePath)
   Ten = wbSource.Path & "\"
    
    wbSource.Sheets.Copy
    Set wbNew = ActiveWorkbook
'   On Error Resume Next
For Each wsCover In wbNew.Sheets
TenSh = wsCover.Name
Lr = wsCover.Range("AH100000").End(3).Row
 For rowCounter = 2 To Lr
        If UCase(wsCover.Range("AH" & rowCounter)) Like "VND" Then
            wsCover.Range("AJ" & rowCounter) = wsCover.Range("AJ" & rowCounter) / exchangeRate
        End If
Next rowCounter
Next wsCover

'    On Error GoTo 0
    wbNew.SaveAs Filename:=Ten & TenSh & "-1" & ".csv", FileFormat:=xlOpenXMLWorkbook
    
    wbSource.Close False
    
    wbNew.Close True
    .......

daoduy88 · Thứ sáu lúc 08:59

HUONGHCKT đã viết:

Tham khảo đoạn code sau:

Mã:

........
 originalFileName = Mid(filePath, InStrRev(filePath, "\") + 1, Len(filePath))

    Set wbSource = Workbooks.Open(filePath)
   Ten = wbSource.Path & "\"
   
    wbSource.Sheets.Copy
    Set wbNew = ActiveWorkbook
'   On Error Resume Next
For Each wsCover In wbNew.Sheets
TenSh = wsCover.Name
Lr = wsCover.Range("AH100000").End(3).Row
 For rowCounter = 2 To Lr
        If UCase(wsCover.Range("AH" & rowCounter)) Like "VND" Then
            wsCover.Range("AJ" & rowCounter) = wsCover.Range("AJ" & rowCounter) / exchangeRate
        End If
Next rowCounter
Next wsCover

'    On Error GoTo 0
    wbNew.SaveAs Filename:=Ten & TenSh & "-1" & ".csv", FileFormat:=xlOpenXMLWorkbook
   
    wbSource.Close False
   
    wbNew.Close True
    .......

cảm ơn bác ạ, nếu muốn đổi thêm chữ VND => USD sau khi đã chia xong tỉ giá thì như nào ạ bác.

HUONGHCKT · Thứ sáu lúc 10:58

daoduy88 đã viết:
cảm ơn bác ạ, nếu muốn đổi thêm chữ VND => USD sau khi đã chia xong tỉ giá thì như nào ạ bác.

Bạn đã ghép vào code của bạn chưa? Và chạy thử thì kết quả thế nào?
Bạn muốn đổi chữ "VND" ở cột AH thành "USD" phải không? Nếu vậy bạn thêm dòng code tô đậm phía dưới đây (hoặc dùng hàm Raplace
If UCase(wsCover.Range("AH" & rowCounter)) Like "VND" Then
wsCover.Range("AJ" & rowCounter) = wsCover.Range("AJ" & rowCounter) / exchangeRate
wsCover.Range("AH" & rowCounter)) ="USD"
End If
hoặc dùng hàm Raplace, cụ thể wsCover.Range("AH" & rowCounter)) =Replace(wsCover.Range("AH" & rowCounter)) ,"VNSD","USD")
Tôi đã xóa file nên không thử được. Bạn cũng đã biết về code VBA nên bạn thừa khả năng làm được việc thay thế này ở đâu.
Chúc bạn thành công.

daoduy88 · Thứ sáu lúc 12:04

HUONGHCKT đã viết:
Bạn đã ghép vào code của bạn chưa? Và chạy thử thì kết quả thế nào?
Bạn muốn đổi chữ "VND" ở cột AH thành "USD" phải không? Nếu vậy bạn thêm dòng code tô đậm phía dưới đây (hoặc dùng hàm Raplace
If UCase(wsCover.Range("AH" & rowCounter)) Like "VND" Then
wsCover.Range("AJ" & rowCounter) = wsCover.Range("AJ" & rowCounter) / exchangeRate
wsCover.Range("AH" & rowCounter)) ="USD"
End If
hoặc dùng hàm Raplace, cụ thể wsCover.Range("AH" & rowCounter)) =Replace(wsCover.Range("AH" & rowCounter)) ,"VNSD","USD")
Tôi đã xóa file nên không thử được. Bạn cũng đã biết về code VBA nên bạn thừa khả năng làm được việc thay thế này ở đâu.
Chúc bạn thành công.

cảm ơn bác nhiều nhé.

HUONGHCKT · Thứ sáu lúc 13:08

daoduy88 đã viết:
cảm ơn bác nhiều nhé.

hỏi 3 câu. mà chả lời lấy nửa câu. rõ chán.?!?

daoduy88 · Hôm qua, lúc 09:09

HUONGHCKT đã viết:
hỏi 3 câu. mà chả lời lấy nửa câu. rõ chán.?!?

à em thử ok rồi bác à. cảm ơn bac nhiều nhé.

Xin chỉ giáo code VBA copy file csv , thay đổi tỉ giá và lưu file csv mới

daoduy88

Thành viên mới

daoduy88

Thành viên mới

befaint

|||||||||||||

daoduy88

Thành viên mới

File đính kèm

Hoàng Tuấn 868

Đăng ký hôm qua

daoduy88

Thành viên mới

HUONGHCKT

Zalo 0986997214

daoduy88

Thành viên mới

HUONGHCKT

Zalo 0986997214

daoduy88

Thành viên mới

HUONGHCKT

Zalo 0986997214

daoduy88

Thành viên mới

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng