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
这样的问题建议到专业点的网站去问:
答:如果没记错,这个宏是可以可视化操作的,选择录制宏,然后一步步的操作就好。这个不能编辑,便是设置只读密码了。详情>>
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>