Nhờ mọi người giúp đỡ ghi dữ liệu theo format integer

[catlo]

Code này của anh hai lúa miền tây, mình lấy sử dụng, nhưng bị vướng một cái fix hoài không được, mong anh em diễn đàn fix giúp,
Khi copy dữ liệu từ file A vào file B, nhưng riêng cột SL mình muốn hiển thị integer ( dạng số ), vì hiện tại khi copy vào file B thì ở đầu ký tự đều bị dấu nháy cả.
Cám ơn!

Sub GhiDL_HLMT()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    With cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "data source=" & ThisWorkbook.Path & _
                            "\B.xls;extended properties=""excel 8.0;HDR=Yes;"";"
        .Open
        .Execute "INSERT INTO [Data$] SELECT STT,TEN,SL FROM [excel 8.0;database=" & _
                    ThisWorkbook.FullName & ";HDR=Yes].[thanhle$A1:C20]"
    End With

    cn.Close: Set cn = Nothing
    MsgBox " OK! "
End Sub

 

[befaint]

Gửi 2 files đó lên đi bạn.

 

[catlo]

2 file đây đó đây bạn. giờ muốn fix colums SL hiển thị kiểu int hiện tại bị dấu nháy ở đầu đó

 

[VetMini]

2 file đây đó đây bạn. giờ muốn fix colums SL hiển thị kiểu int hiện tại bị dấu nháy ở đầu đó

"fix" nghĩa là giữ yên một chỗ/kiểu?

 

[catlo]

"fix" nghĩa là giữ yên một chỗ/kiểu?

nghĩa là copy như cũ chỉ có colums SL khi copy qua file B nó không bị dấu nháy ở đầu đó, có dấu nháy nó về dạng text rồi ko sử dụng hàm được với định dạng số được

 

[snow25]

Code này của anh hai lúa miền tây, mình lấy sử dụng, nhưng bị vướng một cái fix hoài không được, mong anh em diễn đàn fix giúp,
Khi copy dữ liệu từ file A vào file B, nhưng riêng cột SL mình muốn hiển thị integer ( dạng số ), vì hiện tại khi copy vào file B thì ở đầu ký tự đều bị dấu nháy cả.
Cám ơn!

Sub GhiDL_HLMT()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    With cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "data source=" & ThisWorkbook.Path & _
                            "\B.xls;extended properties=""excel 8.0;HDR=Yes;"";"
        .Open
        .Execute "INSERT INTO [Data$] SELECT STT,TEN,SL FROM [excel 8.0;database=" & _
                    ThisWorkbook.FullName & ";HDR=Yes].[thanhle$A1:C20]"
    End With

    cn.Close: Set cn = Nothing
    MsgBox " OK! "
End Sub

Nhớ không nhầm thì là chỗ imex=1

 

[catlo]

Nhớ không nhầm thì là chỗ imex=1

mình thêm vô IMEX=1 rồi mà vẫn không được, vẫn bị dấu nháy ở đầu, anh chị ai biết giúp mình với

 

[Hai Lúa Miền Tây]

2 file đây đó đây bạn. giờ muốn fix colums SL hiển thị kiểu int hiện tại bị dấu nháy ở đầu đó

Bạn thử với 2 files tôi gửi xem sao nhé.