作者axzong0104 (●○大肠冲击波○●)
看板Visual_Basic
标题[.NET] 如何判断excell内的字串
时间Wed Sep 2 18:43:39 2009
请输入专案类型(网站专案或者应用程式专
我现在想要做一个程式
他在formload的时候
可以读取一个(现有且放至於C槽)的excell档案
首先我想要他用一个for回圈判断
excell 档案内有一格(B1，cell(1,2))是用来表示目前在excell档案中
有几个需要用到的列项目，假如现在有N项是我要用的
那我会写下面这样
For A = 1 to N
这里我想要藉由判断.cell(A,1)内是不是有字串文字
假如有字串的话
将这个字串加到combobox的项目
next
假如有人可以帮忙的话就拜托了@@
对了我的程式是用2005express
程式码比较不一样
但是我很急
谢谢@@
这是我刚刚的程式码，出现下面的叙述
从型别 'Range' 至型别 'String' 的转换是无效的。
Dim newExcel As New Excel.Application
Dim RHOfilename As String
Dim count As Integer
Dim itemnumber As Integer
Dim item_name() As String = {"A", "B"}
RHOfilename = "222"
With newExcel
'.Visible = True '若你想看到读取、写入的过程就加这行
.Workbooks.Open(Filename:="C:\" & RHOfilename & ".xls") '读取(开启)C糟下的Book1档案(须先有档案)
'.Workbooks.Add() '若不是开启现有档案,可加这行新增
itemnumber = .Cells(1, 2).value
Label8.Text = .Cells(1, 2).value
For count = 3 To itemnumber + 2
→这行出问题 item_name(count) = .Cells(count, 1)
ComboBox1.Items.Add(.Cells(count, 1))
'.ActiveWorkbook.Save() '写入(存档)
'.ActiveWorkbook.SaveAs(Filename:="C:\Book2.xls") '写入(另存新档)
Next
.ActiveWindow.Close() '关闭工作表
.Quit() '关闭Excel(newExcel)
End With
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.112.215.233
※ 编辑: axzong0104 来自: 59.112.215.233 (09/02 18:55)