Xuất 1 label từ Visual studio 2010 ra file excel (1 người xem)

[dylog]

Chào các bác, em mới tập tành VB, viết trên VS2010
hiện nay em có 1 vấn đề lớn đó là xuất 1 label ra file excel

giả sử 1 cột là
đất
đá
nước
xi măng
1 cột là các thông số tương ứng
giả sử các cột đất, đá, nước, xi măng kia đã tạo sẵn
giờ các thông số kia là các label khác nhau chẳng hạn
các bác cao thủ bớt chút thời gian hướng dẫn cho em một chút được không ạ

 

[khoavu87]

làm ơn có ai kíu em với :-s

- Vào đây tham khảo đi:
http://forums.congdongcviet.com/showthread.php?t=13061&highlight=Xu%E1%BA%A5t+d%E1%BB%AF+li%E1%BB%87u+t%E1%BB%AB+C%23+sang+excel
hoặc vào :http://www.caulacbovb.com/forum/

 

[dylog]

híc em viết bằng VB, ai giúp em với :-s
em mới học vb thôi mà, còn cái C em chịu :-s

 

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

híc em viết bằng VB, ai giúp em với :-s
em mới học vb thôi mà, còn cái C em chịu :-s

Bạn muốn xuất như thế nào ? từ Listview, DataGrid, ListBox...
Ra 1 file Excel mới hay là vào 1 file Excel có sẵn form ?

 

[dylog]

Bạn muốn xuất như thế nào ? từ Listview, DataGrid, ListBox...
Ra 1 file Excel mới hay là vào 1 file Excel có sẵn form ?

dạ, chỉ cần là xuất 1 label ra thôi ạ, còn các cái khác em tự suy luận cũng được, tại cái VS này mới quá, mà em cũng dại , chơi luôn hàng mới khi tập tọe, thôi chót chơi thì chơi đến cùng
bác cứ cho em 1 ví dụ xuất 1 cái label ra ẽxcel được không ạ, chân thành cảm tạ bác lắm lắm

 

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

dạ, chỉ cần là xuất 1 label ra thôi ạ, còn các cái khác em tự suy luận cũng được, tại cái VS này mới quá, mà em cũng dại , chơi luôn hàng mới khi tập tọe, thôi chót chơi thì chơi đến cùng
bác cứ cho em 1 ví dụ xuất 1 cái label ra ẽxcel được không ạ, chân thành cảm tạ bác lắm lắm

Bạn dùng thử code sau:

Private Sub Command1_Click()
Dim Excel As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Set Excel = CreateObject("excel.application")
Excel.Visible = True
Set wb = Excel.Workbooks.Add
wb.Worksheets.Add
Set ws = wb.Sheets(1)
ws.Name = "Xuat Label Tu VB6"
    Cells(1, 1) = "Noi Dung Label"
    Cells(2, 1) = Label1.Caption
    Cells(1, 1).Font.Bold = True
    Cells(1, 1).EntireColumn.AutoFit
    Screen.MousePointer = vbDefault

End Sub

 

[dylog]

ngàn lần khắc tên anh :X