ibogood的专栏

dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格

Private Sub Command1_Click() CD1.Filter = "*.xls" CD1.ShowOpen FileName.Text = Trim(CD1.FileName)End SubPrivate Sub Submit_Click() FileName = Trim(FileName.Text)

Sub test() Dim begin As Integer Dim endValue As Integer Dim jg As Integer begin = 3 '开始行 endValue = 493 '结束行 jg = 1 '间隔 '千万不要以为是2，因为当第3行被删除后，第5行已经变成了第4行 Dim i As Int

dim str,result'输入内容如 99,111 数字中间用逗号 前后没有逗号str=inputbox("请输入字符串")result=StrToAscii(str)msgbox resultfunction StrToAscii(str) strs=split(str,",") result="" for each asciiStr in strs r