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