VB大神看看这一小段哪里有问题 vb 请大神们看下哪里有错误，怎么也登陆上去
VB\u5927\u795e\u5e2e\u5fd9\u770b\u770b\u600e\u4e48\u56de\u4e8b\u554a\uff0c\u591a\u8c22\uff01\u6025\u6c42\u628a\u7b49\u53f7\u53bb\u6389\uff0c\u6ca1\u90a3\u4e2a\u4e1c\u897f
\u622a\u56fe\u5462\uff1f\u4ee3\u7801\u5462\uff1f\u4ec0\u4e48\u90fd\u6ca1\u6709\u600e\u4e48\u770b\uff1f\uff1f
Private Sub Command1_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Set excel_App = CreateObject("Excel.Application")
excel_App.Visible = False
Set excel_Book = excel_App.Workbooks.Open("C:\1.XLSx")
Set excel_sheet = excel_Book.Worksheets("Sheet1")
excel_sheet.Range("C1").Value = 100
Set excel_sheet = Nothing
excel_App.ActiveWorkbook.Close savechanges:=True
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing
End Sub
经过验证，一般说来需要先引用，后写代码，这段代码在我这运行通过，那个设置属性的 语句不知道为什么运行不能通过，让我给去掉了，然后运行完全通过。只是我这用的是exel2007那个文件的扩展名改了。别的都没什么了。不行再追
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
这两句中把xlApp改为excel_App
绛旓細Private Sub Command1_Click()Dim excel_App As Excel.ApplicationDim excel_Book As Excel.WorkbookDim excel_sheet As Excel.WorksheetSet excel_App = CreateObject("Excel.Application") excel_App.Visible = FalseSet excel_Book = excel_App.Workbooks.Open("C:\1.XLSx")Set excel_sheet = e...
绛旓細Buttons浣犲鏋滀笉鎯冲姞锛岄偅灏辫繖鏍峰瓙锛歁sgbox("XXX",,"AAA")
绛旓細濡傛灉杩炴帴娌闂鐨勮瘽锛屼綘妫鏌ヤ竴涓婥ommandType灞炴э紝涓鑸範鎯細鍦ㄧ晫闈㈠睘鎬х獥鍙ｉ夋嫨涓涓〃鐪嬬湅鏁堟灉锛岀粨鏋淐ommandType灏辫鑷姩璁剧疆鎴愪簡cmdTable,鍦ㄤ唬鐮佷腑璧嬬粰Sql涓叉椂灏变細鍑洪敊銆侰ommandType搴斾负cmdText鎴朿mdUnknow銆
绛旓細1 鏄〃鐨勪綅缃紪鍙凤紙鎸塖heet鎺掑垪椤哄簭锛夛紝鎵浠ュ叾瀹炶繕鍙互鍐欎綔 Worksheets(1)锛屼篃鏄璞＄殑鍙傛暟 浠ヤ笂涓夎呮槸鏈夊尯鍒殑銆傚悕绉颁篃鍙互淇敼锛堥変腑浠ュ悗鍦ㄥ乏涓嬭鐨勫睘鎬х獥鍙ｉ噷鏀癸級锛屽畠鍙互鐩存帴鐢紝浣嗛檺浜庢湰宸ヤ綔绨匡紝鎵浠ュ畠涓嶉渶瑕侊紙涓嶈兘锛夎窡鍦╓orkbooks鐖跺璞″悗銆備綘鍙互鍐橲heet1.Activate锛屼絾涓嶈兘鍐橶orkbooks("xxx"...
绛旓細鍒ゆ柇杈撳叆涓庢簮涓茬殑FOR璇彞缁堟搴旀敼涓簂ength(text1.text)鍏跺疄杩欏绠楁硶鍙互鏀规垚鍗虫椂鍒ゆ柇right(text1.text, 1)鏄惁涓庢簮涓茬浉搴斾綅缃殑瀛楃锛屽嵆mid(ssrc, length(text1.text), 1)鐩稿悓灏辫浜嗐備笉鐢ㄦ瘡娆￠兘寰幆涓涓嬨
绛旓細杩欐浠ｇ爜锛岀湅绌夸簡锛屽叾瀹炲氨鏄剰鎬濆氨鏄 >=80 鐨勬槸浼樼 >=60 鐨勬槸鍙婃牸 鍓╀笅鐨勫氨鏄笉鍙婃牸浜嗐 鏈澶氬仛涓渶楂樺垎(100)鍜屾渶浣庡垎(0鍒)鐨勬鏌 鎵浠ュ鏋滃潥鎸佺敤If鏉ュ啓锛屽畬鍏ㄧ鍚堜綘鎰忓浘鐨勪唬鐮佹槸 Private Sub Command1_Click() Dim A As Single A = Text1.Text If A > 100 ...
绛旓細娴嬭瘯浜嗕笅 娌闂 鍙互璇诲彇鏂囨湰 涓嶈繃浣杩欐浠ｇ爜鐨勫姛鑳芥槸 璇诲彇浣犳寚瀹氱洰褰曚笅鎵鏈夋枃鏈枃浠剁殑鍐呭锛岀劧鍚庤緭鍑恒傚鏋滀綘鏂囨湰鏂囦欢姣旇緝澶 灏变細鏈夊崱浣忕殑鎯呭喌鍑虹幇銆備綘绛夊緟杩愯瀹屾瘯鍗冲彲鎭㈠
绛旓細鎴戠敤浣犵殑浠ｇ爜娴嬭瘯娌￠棶棰橈紝鍖呮嫭鎶婂惎鍔ㄥ璞¤涓篗DI绐椾綋銆佸瓙绐椾綋鍜屾ā鍧桽ub Main()閮芥病鍑虹幇浣杩欎釜闂
绛旓細P1璧嬪煎繀椤诲啓鍦ㄨ繃绋嬪唴锛屽嵆Sub鎴栬協unction鍐咃紝鑰屼笉鑳藉湪澶栭儴璧嬪
绛旓細浣犳槸娌℃湁鎶婂畠鏀惧湪浜嬩欢閲屽惂锛熸瘮濡傜偣鍑绘寜閽椂瑙﹀彂杩欐浠ｇ爜锛岄偅涔堝氨瑕佹妸杩欎釜浠ｇ爜鏀惧湪 Private Sub Command1_Click()鈥樿繖涓綅缃 End Sub 涓棿 褰撶劧鍓嶆彁鏄綘鍒涘缓浜咰ommand1杩欎釜鎸夐挳銆傛垜QQ67114208锛屼笉鏄庣櫧鐨勫湴鏂筈Q璇存柟渚夸簺銆
