VB读取EXCEL源码Private Sub Command1_Click() Dim i As Integer, j As Integer Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = False '设置EXCEL不可见 Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打开EXCEL工作簿 Set xlsheet = xl
Private Sub Form Load a Inet1 OpenURL "www ip38 com" "打开这个网页 获取源码 b InStr a "您的本机IP地址:" "获取这个字符出现的位置 c InStr a " " "截取这个字符出现的位置 d Mid a b + 9 c b 10 "截取这两个字符间的字符 就是IP了 Text1 Text d