怎么利用VB向指定的EXCEL插入数据；
比如我的EXCEL地址是C:\Users\Administrator\Desktop,文件名为test，要在（1，1）插入数据在VB的TEXT5里面输入的数据会在EXCEL里的（1，1）显示
Dim xlApp As Excel.Application '定义一个Excel应用
Dim xlBook As Excel.Workbook '定义一个Excel Book
Dim xlSheet As Excel.Worksheet '定义一个Excel Sheet
'下面是取出打开的文件名后面添加一个时间戳作为新的文件名，该文件存放路径是程序的同目录下
DstFile = App.Path & "\" & Mid(FileNameE, 1, Len(FileNameE) - 5) & "_" & Format(Now, "yyyyMMddhhmmss") & ".xlsx"
'将打开的文件拷贝一份到程序同目录下的文件夹中，并重新命名为上面的文件名字
FileCopy Fpath, DstFile
Set xlApp = New Excel.Application
xlApp.Visible = False '不显示打开的Excel
Set xlBook = xlApp.Workbooks.Open(DstFile) '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Dim i As Integer
xlSheet.Cells(1, Rcount) = Ds(1, Rcount) '把数组ds(1,rcount)这个数据写入Excel中，写入的内容其实就是标题“计算结果”
For i = 2 To Hcount - 1 '再把数组ds(i,Rcount)的数据依次写入Excel表格中
xlSheet.Cells(i, Rcount) = GetTimeSl(Ds(i, Rcount))
Next i
xlBook.Close (True) '关闭并保存
'xlApp.DisplayAlerts = False '关闭EXCEL不提示保存
xlApp.Quit '关闭EXCEL
Set xlBook = Nothing '释放设置的资源
Set xlSheet = Nothing
Set xlApp = Nothing
End Sub追问
你这个行不通啊
vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件...
1、在工程中引用Microsoft Excel类型库：从\\"工程\\"菜单中选择\\"引用\\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\\"确定\\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...
怎样实现用vb导入excel表格
首先，在VB中添加对Excel对象库的引用。然后，通过创建Excel应用程序对象（Application）实例来打开Excel文件。接着，获取工作簿（Workbook）和工作表（Worksheet）对象，从而访问Excel中的数据。使用合适的函数（例如Range或Cells）来读取工作表中的数据，并将其导入到VB的本地数据结构中。此外，可以使用循环结...
VB怎样操作向excel中插入数据(求代码)
Sub 循环插入()For i = 1 To 10 '设定循环次数,从1到10 Cells(i, 1) = i * i '单元格i行1列输入数据i*iNextEnd Sub'此程序运行后是在A1:A10的单元格依次填充1的平方,到10的平方
怎么利用VB向指定的EXCEL插入数据;
Rcount) = Ds(1, Rcount) '把数组ds(1,rcount)这个数据写入Excel中，写入的内容其实就是标题“计算结果” For i = 2 To Hcount - 1 '再把数组ds(i,
excel电子表格中如何用vb 语句插入行或单元格
如何用VB向EXCEL单元格中插入图片 如果你知道图片的Name 可以,如名称是"Picture 1" xlSheet.Shapes("Picture 1").delete 如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3 可以回圈判断后删除 For Each P In xlSheet.Shapes If P.Name Like "Picture*" and P.TopLeftCell.在Excel电子...
VB操作excel,给excel录入数据
新建VB的EXE工程，使用如下代码在第一行第一列写入vb操作excel：Option Explicit Dim xlapp As Object Dim xlBook As Object Dim xlSheet As Object Dim A As String Private Sub Command1_Click()Set xlapp = CreateObject("excel.application")xlapp.Visible = True Set xlBook = xlapp....
如何用vb在excel表格里指定 列的范围里插入序号
Sub Macro1()ActiveCell.FormulaR1C1 = "text1"Range("A2").Select ActiveCell.FormulaR1C1 = "text2"Range("A1:A2").Select Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault Range("A1:A20").Select End Sub
怎样在vb中导入excel表格数据
一个按钮，五个文本框（文本框用复制方式）dim xlsapp as excel.application dim xlsbook as excel.workbook dim xlssheet as excel.worksheet set xlsapp = new excel.application set xlsbook = xlsapp.workbooks.add set xlssheet = xlsbook.worksheets(1)xlssheet.application.columns("a:l")....
怎样利用VB在Excel中插入一行?
1,工程中引用 Microsoft Excel xx.x Object Library .2,创建EXCEL的实例 Dim xls As Excel.Application Dim sheet1 As Worksheet Set xls = CreateObject("Excel.Application")'也可以获取打开的Set xls = GetObject(, "Excel.Application")xls.Visible = True 剩下的不懈出来了，如果你有点VB和...
EXCEL根据某一单元格的值,自动复制插入行。求详细VBA代码?十分感谢_百度...
1、添加内件名称数据辅助列，输入以下公式，然后向下填充公式 =LEN(N2)-LEN(SUBSTITUTE(N2,",",""))+1 2、添加行数对应辅助列，输入以下公式，然后向下填充公式 =SUM(Q$2:Q2)-Q2 3、输入以下公式，然后向右向下填充公式 =IF(ROW(A1)-1<SUM($Q:$Q),LOOKUP(ROW(A1)-1,$R$2:$R$4,B$2...
