[.NET] 如何判斷excell內的字串

看板Visual_Basic作者 (●○大腸衝擊波○●)時間14年前 (2009/09/02 18:43), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/2 (看更多)
請輸入專案類型(網站專案或者應用程式專 我現在想要做一個程式 他在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)
文章代碼(AID): #1AdanS3P (Visual_Basic)
文章代碼(AID): #1AdanS3P (Visual_Basic)