Question

vb6 listbox读取excel指定列并打开对应的网址，如图

读取：就是读取Excel指定列的内容，打开：打开listbox当前选中的网址，删除：删除对应表格行数据.
大虾给点思路也行啊！

Answer 1

如果你有基础的,我就谈谈思路：
你的程序里,要具有打开excel的功能，并能够读取该数据表(假设是"Sheet1")的A列和B列数据。
如果数据行不多，可以使用一次读取，存入数组的方法，将A列数据添加到列表框，等到用户单击某项，从数组里获得相应URL。
如果数据大，就只把A列读出并马上添加到列表框里，等到用户单击某项，再去读取相应URL。
获得了某URL后，打开IE并显示该URL网页的方法可以使用VB的Shell函数：
假设把网址存放在变量URL里，是文本类型的：
Shell函数的使用如下：
Dim MyID
MyID = Shell("C:\Program Files\Internet Explorer\iexplore.exe " & URL, vbMaximizedFocus)

说明：
Shell的格式是：

Shell(pathname[,windowstyle])

其中
pathname -- 是要启动的程序文件标识符（盘符：路径：文件名）
windowstyle -- 可选参数，表示启动该程序后窗体的状态
如果启动该成的同时，想打开已经存在的文件，就直接在程序文件标识符后空格+文档文件
标识符
例如：
Dim MyID
MyID = Shell("C:\WINDOWS\system32\notepad.exe ", vbMaximizedFocus)

启动windows的记事本程序
又如：

Dim MyID
MyID = Shell("C:\WINDOWS\system32\notepad.exe c:\1.txt", vbMaximizedFocus)
启动windows的记事本程序同时打开c盘根目录下的1.txt文件

Answer 2

我这里没有装VB6,我就用VBA 给你写了个例子,你参考一下吧.除了在工作表的引用方法上有不同外,其他的应该没太大的区别.
同样是1个窗体 3个命令按钮 1个listbox控件

Private Sub CommandButton1_Click()
ListBox1.ListCount = 2
ListBox1.List = Range("A1:B12").Value
End Sub
Private Sub CommandButton2_Click()
Dim web As Object
Set web = CreateObject("InternetExplorer.Application")
web.Visible = True
web.Navigate (ListBox1.List(ListBox1.ListIndex, 1))
End Sub
Private Sub CommandButton3_Click()
ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Answer 3

这个好啊。。强烈要求学习

我是真心有兴趣啊

不教教我么？

Answer 4

我给你编写完整的吧
怎么发给你