爱问知识人 爱问教育 医院库

VB读写Excel操作

首页

VB读写Excel操作

'请帮忙把*描述的地方都改成代码,谢谢!
Option Explicit
Public Sub runWE()
    Dim org As String
    Dim arm As String
    org = "c:\temp\a.xls"
    arm = "c:\temp\b.xls"
    'testSheet为"c:\temp\a.xls"中存在的一个sheet名
    MsgBox AddSheetToExcel(org, arm, "testSheet")
End Sub

Public Function WriteExcel(ByVal org As String, _
    ByVal arm As String, _
    ByVal sname As String) As Integer
    
    *如果不存在arm文件,那么新建arm
    *如果org中不存在表sname,那么立刻返回(WriteExcel=1)
    
    *在arm中第一行,第一列,写入字符"A"
    *在arm的第一行,第二列起,写入org的第一行
    
    *在arm中第二行,第一列,写入字符"A"
    *在arm的第二行,第二列起,写入org的第一行
    
    *在arm中第三行,第一列,写入字符"A"
    *在arm的第三行,第二列起,写入org的第一行
    
    *....不断循环,直至写完
    
    WriteExcel = 0
End Function

提交回答

全部答案

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 173-192
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):