有乙個 VB 程式，用於顯示 EXCEL 中列的所有值，並帶有用於選擇的列表控制項

private sub form_load()set excelapp = createobject(""建立乙個 excel 物件。

set excelbook = "d:\"） 檔案位置。

set excelsheet = '第一**。

false '背景。

for i = 1 to lrows = '從第一行到最後一行阻止。

3).value '這裡。 值不能加，語句說明凌哥一行3列也可以用好cells("c"&i） 表示，即 c 列行。

解除安裝後關閉物件。

set excelsheet=nothingset excelbook=nothingset excelapp=nothing

end sub

private sub form_load()set xlapp = createobject("撇開電話"&和齊橡樹勳" '） 檔案位置。

for i = 1 to , 1).textend sub

建議使用VBA，這樣更方便。

如果不想使用VBA，建議不要使用VB，雖然可以解決，但是以後維護太麻煩了，所以還是換個辦法吧。

例如，您可以使用資料庫、C++ 等。

如果只是做乙個簡單的目錄功能，點選目錄跳轉到對應的表單，直接在工作簿中建立乙個表格列出目錄，並將當前工作簿中對應的表單超連結新增到每個表單中！

建議房東使用VB自帶的巨集，記錄下你需要的操作，然後用VB呼叫... 我只有想法，我不知道如何程式設計。

private sub commandbutton1_click()filename:="e:\" '開啟目標檔案 ="a3") '為文字框 1 賦值。

no '關閉目標檔案。

end sub

根據您的要求，供參考！

我有乙個類似的供你參考。

private sub commandbutton1_click()dim wb as workbook, fso, mypath$, myfile$

mypath = "F：A股A股每日資料"

set fso = createobject("")if & "\" & textbox1 & ".xls") then

a:g") = ""

set wb = & "\" & textbox1 & ".xls")

a:g").copy "a1")

a1").copy "a1")

falseelse: msgbox "沒有這樣的檔案"

end if

textbox1 = ""

end sub