作者ldluliu (Liu-Liu)
看板Visual_Basic
标题Re: [.NET] 如何判断excell内的字串
时间Wed Sep 2 22:13:55 2009
Dim newExcel As New Excel.Application
Dim RHOfilename As String
Dim count As Integer
Dim itemnumber As Integer
Dim item_name() As String ' 定义动态一维阵列
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
ReDim item_name(itemnumber + 2) '重新定义一维阵列大小
For count = 3 To itemnumber + 2
'若要取得 Cells 里面的值，最後请加上 .value (或 .ToString)
item_name(count) = .Cells(count, 1).value
ComboBox1.Items.Add(.Cells(count, 1).value)
'.ActiveWorkbook.Save() '写入(存档)
'.ActiveWorkbook.SaveAs(Filename:="C:\Book2.xls") '写入(另存新档)
Next
.ActiveWindow.Close() '关闭工作表
.Quit() '关闭Excel(newExcel)
End With
※ 引述《axzong0104 (●○大肠冲击波○●)》之铭言：
: 请输入专案类型(网站专案或者应用程式专
: 我现在想要做一个程式
: 他在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: 122.124.5.229