主题：excel导入问题

1、你如何导入excel的？写代码？还是点菜单？

2、如果写代码，判断一下工作表是否隐藏即可。

贴出你写的代码。

Dim book As new XLS.Book("d:\test.xls")
msgbox(book.Sheets(0).Visible)

If sheet.visible then

    msgbox(123)

End If

可以，参考 http://www.foxtable.com/webhelp/scr/2778.htm

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.CheckBoxes = True
Dim dlg As new OpenFileDialog
dlg.Filter="所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    lvw.Images.AddImage("China","China.Ico","China48.Ico") '增加代表中国的一对图标,图标键值为"China"
    For Each sheet As XLS.Sheet In book.Sheets
        Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
        r.Text = sheet.name '指定行的标题
        r.ImageKey = "China" '指定行的图标键值
    Next
End If

设置成小图标

http://www.foxtable.com/webhelp/scr/2770.htm