| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1217 人关注过本帖
标题:EXCLE文件转换成vb程序代码
只看楼主 加入收藏
CHINAZJGD
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-8-11
收藏
 问题点数:0 回复次数:4 
EXCLE文件转换成vb程序代码

我用EXCLE做了一个小软件.想用VB把它独立出来,有没有办法,简单一点的办法.因本人不懂VB.谢谢!!

搜索更多相关主题的帖子: EXCLE 文件 代码 软件 
2007-08-11 13:22
BEARBEN
Rank: 1
等 级:新手上路
帖 子:114
专家分:0
注 册:2007-7-7
收藏
得分:0 
不懂LZ什么意思,LZ不懂VB怎么知道VB可以解决你的问题呢?

2007-08-11 13:34
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
又是个来要代码的。
2007-08-11 17:16
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
以下是引用CHINAZJGD在2007-8-11 13:22:09的发言:

我用EXCLE做了一个小软件.想用VB把它独立出来,有没有办法,简单一点的办法.因本人不懂VB.谢谢!!

在VB工程中引用Excel对象,然后把VBA窗体(控件)改成VB的窗体(控件),至于执行语句的话两者都差不多。只是如果是对WorkBook、Sheel、Range等对象的引用要在VB中要先声明(VBA中有些可以隐含调用),其它的都差不多。二者区别不大,所以修改起来并不难,只要多点耐心而已。


VB QQ群:47715789
2007-08-11 17:40
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 

本论谈有相关贴子啊。。。。。
算了。。。下面是我做的。。你看下吧
多多关注VB就知道了。。。
Dim objCn As New Connection
Dim objRs As New Recordset

Private Sub Command2_Click()
Dim strQuery As String

Label4.Caption = "be ready.............."
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
Label4.Caption = "check,please.............."
MsgBox "MakeReamID is not allow empty!"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If

If Trim(Text3.Text) = "" Then
Label4.Caption = "check,please.............."
MsgBox "Product ID is not allow empty!"
Text3.SetFocus
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
Exit Sub
End If

Frame1.Enabled = False
Label4.Caption = "wait a jiff.............."

Set objCn = Nothing
Set objRs = Nothing

objCn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Leader;Data Source=192.168.0.2"
strQuery = "select c.TA001,c.TA002,c.TA015,a.MD001,a.MD016 ,a.MD003 ,b.MB002 ,b.MB003 ,b.MB004 ,a.MD006 ,c.TA015 * a.MD006 " & _
"from BOMMD a right join INVMB b on a.MD003=b.MB001 left join MOCTA c on a.MD001=c.TA006 " & _
"where a.MD001='" & Text3.Text & "' and c.TA001='" & Text1.Text & "' and c.TA002='" & Text2.Text & "'"
objRs.Open strQuery, objCn, adOpenKeyset, adLockOptimistic

Dim rstCount As Long '记录行数
Dim rstField As Long '记录列数

rstCount = objRs.RecordCount
rstField = objRs.Fields.Count

If rstCount <= 0 Then
Frame1.Enabled = True
Label4.Caption = "check,please.............."
MsgBox "nothing,check,please...!"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Exit Sub
End If

Dim mExApp As Excel.Application '应用
Dim mExBook As Excel.Workbook '工作薄
Dim mExSheet As Excel.Worksheet '工作表

Set mExApp = CreateObject("Excel.Application")
Set mExBook = mExApp.Workbooks.Open(App.Path & "\MakeReam.xls")
Set mExSheet = mExBook.Worksheets(1)

Dim lLine As Long
Dim Column As Long

Dim sCellValue As String

lLine = 1

'写列头
For Column = 0 To rstField - 5
Select Case Column
Case 0
sCellValue = "部位名称"
Case 1
sCellValue = "材料编号"
Case 2
sCellValue = "材料名称"
Case 3
sCellValue = "规格"
Case 4
sCellValue = "单位"
Case 5
sCellValue = "单耗"
Case 6
sCellValue = "总用量"
End Select
mExSheet.Cells(lLine, Column + 1) = sCellValue
If Column = 6 Then mExSheet.Cells(lLine, Column + 2) = "备注"
Next Column

'开始内容
For lLine = 2 To rstCount + 1
For Column = 0 To rstField - 5
sCellValue = objRs.Fields(Column + 4)
mExSheet.Cells(lLine, Column + 1) = sCellValue
Next Column
objRs.MoveNext '下一行数据
Next lLine
'自动调整列
For Column = 1 To rstField - 4
mExSheet.Columns(Column).AutoFit
Next
'输出该表
objRs.Requery
mExBook.SaveAs (Trim(objRs.Fields(1)) & "-" & Trim(objRs.Fields(3)) & ".xls") '保存
mExBook.Close (True) '按内容变化关闭
Label4.Caption = "successful!"

' this shows a messagebox that will be dismissed after 4 seconds
'
' set the callback timer and pass our application defined ID (NV_CLOSEMSGBOX)
' set the time for 3 seconds (3000& microseconds)
' SetTimer hWnd, NV_CLOSEMSGBOX, 3000&, AddressOf TimerProc
'
' call the messagebox API function
' Call messagebox(hWnd, "InTo Excel successful!", MB_ICONQUESTION Or MB_TASKMODAL)
MsgBox "InTo Excel successful!"
Frame1.Enabled = True
Label4.Caption = "input data..........."
Text1 = "": Text2 = "": Text3 = ""
Text1.SetFocus
End Sub


2007-08-12 17:50
快速回复:EXCLE文件转换成vb程序代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022400 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved