Snasui Excel Forum

คือหนูกำลังเขียนโปรแกรมหนึ่งอยู่ค่ะแต่ต้องการที่จะเอาค่าจากแต่หนูไม่รู้ว่าโค้ดที่จะเอาค่าจาก listbox ใน VB6 ไปแสดงใน excel ยังไงอ่ะค่ะรบกวนช่วยหนูหน่อยนะค่ะ หนูลองใช้โค้ดนี้แล้วมันเปิดexcelได้แล้ว แต่ไม่รู้ว่าจะเอา ค่าใน listboxไปไว้ในตารางของexcel อย่างไรนะค่ะ
Private Sub Command1_Click()

Dim xlsApp As New Excel.Application
Dim xlsBook As New Excel.Workbook
Dim xlsSheet As Excel.Worksheet

Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
xlsApp.Visible = True


xlsSheet.Cells(1, 1) = (ตรงนี้แหละค่ะที่หนูไม่รู้)

End Sub

ลองปรับเป็นด้านล่างครับ
xlsSheet.Cells(1, 1)=UserFomName.ListBoxName.Text

แทนค่า UserFormName กับ ListBoxName ตามชื่อที่ใช้จริงครับ

ขอบคุณมากค่ะ อาจารย์