Question

用VB制作excel表格

利用VB编程 假设我有a个数据 然后希望能在excel中实现从第一行开始一行打5个数据，然后在第三行继续打5个数据，（每个数据一个单元格） 依次类推，直至打完a个数据，请问怎样用 VB 编程实现 求大神指教

Answer 1

添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异)
然后就可以用这个来编程啦
Dim xlapp As Excel.Application ‘代表excel程序
Dim wkBook As Excel.Workbook '代表excelworkbook（也就是excel工作簿文件 .xls .xlsx)
Dim wkSheet As Excel.Worksheet '代表excel的工作页
xlapp.Application.EnableEvents = False '禁止宏等提示的运行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)'wkBook对象,把ExcelFileName替换为你的真实文件 比如 app.path & "\" & "百家姓.xls"
Set wkSheet = wkBook.Worksheets(1) '选中某个sheet用工作页名字(Sheet1,Sheet2...) or 序号

Answer 2

excel2003测试通过，请采纳

Option Explicit
Sub sss()
    Dim a() As Integer
    Dim n%, i%, j%
    Cells.Clear
    n = InputBox("输入数组a的元素个数", , 123)
    If n > 0 Then ReDim a(1 To n) Else Exit Sub
    For i = 1 To UBound(a)
        a(i) = i
    Next
    
    If i <= 5 Then
        For i = 1 To UBound(a)
            Cells(1, i) = a(i)
        Next
        Exit Sub
    End If
    
    n = ((i - 1) \ 5) + 1 '行数
    For j = 1 To n
    For i = 1 To 5
        Cells(2 * j - 1, i) = a((j - 1) * 5 + i)
        If UBound(a) = (j - 1) * 5 + i Then Exit Sub
    Next
    Next
End Sub

Answer 3

'Project------>reference Microsoft Excel 14.0 Object Library

'--------------------------------------------------------

Public xlsapp As excel.Application
Public xlsbook As excel.Workbook
Public xlssheet As excel.Worksheet

public function abc()

Set xlsapp = CreateObject("Excel.Application")
Set xlsbook = xlsapp.Application.Workbooks.Open(spath)
Set xlssheet = xlsbook.Worksheets(1)

'==========================

add ougouw's code write cell address data

'=============================

xlsbook.Close
xlsapp.Quit
Set xlssheet = Nothing
Set xlsbook = Nothing
Set xlsapp = Nothing
end function