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

[daoduy88]

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]

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

 

[befaint]

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

 

[daoduy88]

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: 21/11/24

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: 21/11/24

 

[Hoàng Tuấn 868]

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

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]

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]

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: 21/11/24

Bài đã được tự động gộp: 21/11/24

Tham khảo đoạn code sau:

........
 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]

Tham khảo đoạn code sau:

........
 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]

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]

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]

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ỏ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é.