VB中如何把text中的内容写入指定的Excel中
VB中如何把text中的内容写入指定的Excel中,比如我要把1,2,3,4,5,6分别写入指定格式Excel中的A16,B16,C16,D16,E16,F16中,该如何操作,请高手指教
Dim app As Excel.Application
Dim wbk As Excel.Workbook
Dim wsh As Excel.Worksheet
Private Sub Text1_LostFocus()
Set app = CreateObject("excel.Application")
Set wbk = app.Workbooks.Open(Path)
Set wsh = app.Worksheets(1)
wsh.Activate
wsh.Cells(a, b) = Text1.Text
wbk.Close
app.Quit
Set app = Nothing
Set wbk = Nothing
Set wsh = Nothing
End Sub
VB中如何把text中的内容写入指定的Excel中
应该把命令写在:在TEXT1推动焦点时,进行该命令:Dim app As Excel.Application Dim wbk As Excel.Workbook Dim wsh As Excel.Worksheet Private Sub Text1_LostFocus()Set app = CreateObject("excel.Application")Set wbk = app.Workbooks.Open(Path)Set wsh = app.Worksheets(1)wsh.Activate wsh.C...
如何将VB中TEXT里的文本导入EXCEL里面啊
打开文本数据。新建Excel文档，并打开Excel文档，点击左上角开始处，点击“打开”。打开数据导入界面，选择文本数据点击“确定”，进入下一界面。在下一界面，勾选“逗号”，点击“下一步”，下一页面，继续点击“下一步”。操作完成后，数据导入完成。
vb 将Txt 文本中的内容导入excel
你这个不用vb也能做到,你先把你要的数据复制到EXCEL的A列中,然后点选定A列点击数据》分列》分隔符号选逗号就可以完成了。 shammer | 发布于2008-09-03 举报| 评论 2 8 为您推荐: vb删除excel行 vb增加excel数据 vb中textbox增加excel vb 1004错误 vb标签未定义 vb6.0加载事件 vb实时错误438 ...
如何用VB把txt文件指定内容写到EXCEL中
'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格 I = 0 While Not EOF(1)Line Input 1,Str I = I + 1 exlApp.Sheets(1).Cells(I,1)= Str Wend Close 1 '关闭文本文件 exlBook.Close '关闭 工作簿 exlApp.Quit '关闭Excel ...
excel vb 扫描TEXT文件条件录入Excel
As StringDim xrow As IntegerWith Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strpath = .SelectedItems(1) Else Exit Sub End IfEnd Withstrfilename = Dir(strpath & "\\*.txt")xrow = 1 '设置一个在Excel中填入含关键字的内容的开始行Do While strfile...
在vb中将TXT档导入到EXCEL的问题,求代码
Private Sub Command1_Click()Dim L1,L2 As String Dim I As Integer Open "d:\\11.txt"For Input As 1 Open "d:\\12.txt"For Input As 2 '从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000)，然后选择"确定"。Dim xlApp As Excel.Application Dim xlBook ...
如何使用VBA控件将文本文件导入EXCEL表格如何使用vba控件将文本文件导入...
建一个文件夹，把目标txt文件和excel文件放入其中，在excel的宏编辑器中写入以下代码，有些地方可根据你的实际情况做相应改动：Sub import_from_txt()Dim file_name As String, my_path As String Dim lines, cols Dim i As Integer, j As Integer, k As Integer, q As Integer Application....
急!VB 文本框中的内容导入excel
xlapp = CreateObject("Excel.Application")xlbook = xlapp.Workbooks.Open("C:\\Users\\Administrator\\Desktop\\vb.xlsx") '桌面已有一个vb.xlsx，选择打开 xlapp.Visible = True xlsheet = xlbook.Worksheets(1) '选择第一张工作表，默认就是sheet1 For i = 0 To a - 1 For j = 0 ...
vb 数据怎么写入excel?
MsgBox"数据写入成功！"EndSub 方法一：可以试着用VB书写一段调用SQLServer数据库DTS的代码，然后就可以像直接使用DTS进行数据导入一样就行Excel与SQLServer数据之间的迁移了。方法二：可以用VB来操作EXCEL，然后一条数据一条数据的插入到数据库中，这种方法不推荐使用，因为VB操作EXCEL是非常慢的，如果数据...
VB指定文本写入指定位置的EXCEL表格
思路 i=1 re:if cells(i,1)="" then cells(i,1)=TEXT1.TEXT else i=i+1 goto re end if 或者用do循环
