| 查看: 786 | 回复: 2 | ||
[求助]
VB 代码求更正！ 已有1人参与
|
|
请教各位一下，我写了一段代码，是要生成随机数，并将相关信息逐行写入EXCEL中，但是运行时总是写入excel第一行（每次都是将第一行内容覆盖掉），代码如下，请帮忙修改一下，实现逐行写入（就是每一次运行不覆盖以前的内容，而是从空白的一行写入）。谢谢！ Private Sub Command1_Click() If Trim(Text1) = "" Or Trim(Text2) = "" Or Trim(Text3) = "" Or Trim(Text4) = "" _ Or Trim(Combo1) = "" Or Trim(Combo2) = "" Then MsgBox "请输入完整信息", vbCritical, "提示" Text1.SetFocus Exit Sub End If b = Text2 c = Text3 If b <= c Then MsgBox "采样数应小于/等于总车数", vbCritical, "提示" Text2.SetFocus Exit Sub End If Max = b Min = 1 Amount = c - 1 ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i <> j And a(i) = a(j) Then i = i - 1 Next Next Text5 = Text1 & "；" & vbCrLf & Combo1.Text & "," & "共" & b & "个数字" & "," & _ c & "个随机数" & "；" & vbCrLf & "随机数为：" & Join(a, ","  & "；" & _vbCrLf & Combo2.Text & "," & "操作人员：" & Text4 & "。" Static n As Integer FileName = "D:\随机抽号\历史记录.xls" On Error Resume Next Set xlApp = GetObject(, "Excel.Application" If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application" xlApp.Visible = False End If If Dir(FileName) = "" Then MsgBox FileName & "未找到！", vbCritical, "提示" Exit Sub End If Set xlBook = xlApp.Workbooks.Open(FileName) Set xlsheet = xlApp.Worksheets(1) xlsheet.Activate With ActiveSheet.UsedRange n = .Cells(.Rows.Count, .Columns.Count).Row End With xlsheet.Cells(n + 1, 1) = Now() xlsheet.Cells(n + 1, 2) = Text1 xlsheet.Cells(n + 1, 3) = Combo1.Text xlsheet.Cells(n + 1, 4) = Text2 xlsheet.Cells(n + 1, 5) = Text3 xlsheet.Cells(n + 1, 6) = Join(a, "," xlsheet.Cells(n + 1, 7) = Combo2.Text xlsheet.Cells(n + 1, 8) = Text4 End Sub |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有6人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
这样的filecode谁见过
已经有7人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有5人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有5人回复
2楼2018-10-30 21:38:32
3楼2018-10-31 19:54:02
100