作者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)