Question

vb excel的问题

问题是这样的，现在呢 ，text1的值是列,text2的值是行
要求：打开“c:/数学.xls”以后 在指定的行和列中输入text3的值
然后关闭excel,注意，不能出来什么是否保存的对话框
要全部的代码
再给我一个在c盘中创建一个以“4班成绩”为文件名的文件夹的代码
3个text 1个command 1个combol
text1的内容是我要保存的行
text2的内容是我要保存的列
text3的内容是我要保存的内容
command1 是保存按钮
combol1是我要保存的文件名
保存的格式是xls
保存在c盘中
保存以后不要跳出是否保存的对话框
再给我一个在c盘中创建以“4班成绩”为文件名的文件夹的代码
全部150分

Answer 1

在工具栏“工程”-“引用”中引用Microsoft Excel 11.0 Object Library
除Text1,Text2,Text3,Command1,Combo1外，
还需要添加一个Label,并改名为msgLabel(显示提示信息之用)
代码如下：
Private Sub Command1_Click()
If Text1.Text = "" Then
msgLabel.Caption = "行号不能为空!"
Exit Sub
End If
If Text2.Text = "" Then
msgLabel.Caption = "列号不能为空!"
Exit Sub
End If
If Text3.Text = "" Then
msgLabel.Caption = "填充内容不能为空!"
Exit Sub
End If

Dim xlapp As Excel.Application
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlapp.Workbooks.Add '新建EXCEL工作簿
xlapp.WindowState = xlMaximized
'将填充内容复制到对应单元格
xlapp.ActiveWorkbook.Sheets("Sheet1").Cells(Val(Text1.Text), Val(Text2.Text)).Value = Text3.Text

xlapp.DisplayAlerts = False '关闭提示
xlapp.ActiveWorkbook.SaveAs FileName:="C:\" & Combo1.Text & ".xls"
xlapp.DisplayAlerts = True '开启提示
'退出EXCEL
xlapp.ActiveWorkbook.Close
xlapp.Quit

msgLabel.Caption = "已保存到 C:\" & Combo1.Text & ".xls"
End Sub

Private Sub Form_Load()
msgLabel.Caption = ""
Text1.Text = ""
Text1.MaxLength = 5 'Text1最长5位字符
Text2.Text = ""
Text2.MaxLength = 3 'Text2最长3位字符
Text3.Text = ""
Combo1.AddItem "数学"
Combo1.AddItem "语文"
Combo1.AddItem "英语"
Combo1.Text = "数学"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) 'Text1只能输入数字
If Chr(KeyAscii) > 9 And KeyAscii <> 8 Then
KeyAscii = 0
End If
If Val(Text1.Text) > 65536 Then 'EXCEL最多65536行
Text1.Text = 65536
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Text1.Text) = 1 And Val(Text1.Text) = 0 Then '第一个字符不能为零
Text1.Text = ""
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) 'Text2只能输入数字
If Chr(KeyAscii) > 9 And KeyAscii <> 8 Then
KeyAscii = 0
End If
If Val(Text2.Text) > 256 Then 'EXCEL最多256列
Text2.Text = 256
End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Text2.Text) = 1 And Val(Text2.Text) = 0 Then '第一个字符不能为零
Text2.Text = ""
End If
End Sub

======================================
创建文件的代码：
Private Sub Command2_Click()
MkDir "C:\4班成绩"
End Sub

Answer 2

用数据库的方法来访问也可以