用 vb 程序怎样才能实现搜索出来的数据在excel 中 分 sheet显示 ？

Question

在线等待 ！！！

Answer 1

SHEET 是EXCEL中的一个对象，可以直接访问呀1

Answer 2

我想让记录分别显示在不同的sheet 中 ，可是运行 后只显示在sheet1 中 ？

Answer 3

你要指定SHEET2，SHEET3也可以啊。

Answer 4

如果我想 根据 查询出来的不同结果，存放到不同的sheet 中 该怎么设置呢？请赐教

Answer 5

更具条件 插入不同的SheetN就可以了啊
If ... then
   Insert Into SHeet1
Else
...
endif

Answer 6

If strid = "1" Then
      
      Set xlSheet = xlBook.Worksheets("sheet1")
       
    End If
     If strid = "2" Then
    
      Set xlSheet = xlBook.Worksheets("sheet2")
    End If
可不可以呢？

Answer 7

看看这段代码，
If Dir(App.Path & "\Temp\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp\banhou.xls") '打开EXCEL工作簿
set xlsheet=xlbook.worksheets(1)    
Set xlsheet = xlBook.Worksheets(2) '打开EXCEL工作表
    xlsheet1.Activate '激活工作表1
xlsheet2.activate '激活工作表2 ,需要往哪个表单里导就激活哪个，然后分别把你的内容导入到你要的表单里。    xlsheet1.Cells(3, 2) = DTPicker1.Value
    xlsheet1.Cells(3, 4) = Trim(Combo1.Text)
    xlsheet2.Cells(3, 6) = Trim(Label15.Caption)
    xlsheet2.Cells(3, 8) = Trim(Label16.Caption)
    xlsheet2.Cells(5, 1) = Trim(RichTextBox1.Text)
   
    '给单元格1行驶列赋值
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
  
'  Else
'    MsgBox ("EXCEL已打开")
  End If
实现记得给分哦！

Answer 8

哦，写错一条，应该是：
set xlsheet1=xlbook.worksheets(1)    
Set xlsheet2 = xlBook.Worksheets(2) '打开EXCEL工作表
需要哪打开个哪，这里假设你要往sheet1,sheet2里导数据

Answer 9

to  alogicgen()  :
按照你的 这种 单元格赋值得 方式 ，是不是针对的单个 的 一行 的 赋值 ？

Answer 10

我的意思把你要显示的SHEET 都激活了，激活后，你就可以分别往你激活的SHEET里，进行附值，你想往哪附值就往哪个附值，不是针对的单个 的 一行 的 赋值 !那只是我的一个例子，仔细看看我写的代码！

Answer 11

怎么使用vb 代码 在fpspread 表格 设计 中怎么设置 列名（不使用设计器）？

Answer 12

Set xlApp = CreateObject("Excel.Application")
  xlApp.DisplayAlerts = False
  Set xlBook = xlApp.Workbooks.Add
 .
 .
 .
If intSheetItem > 3 Then
    xlBook.Sheets.Add after:=xlBook.Worksheets(xlBook.Worksheets.Count)
  End If
    
  Set xlSheet = xlBook.Worksheets.Item(intSheetItem)
  xlSheet.Activate这样就行了!