vb怎么把excel转成txt
答：这个问题解决了，VB特殊的EXCEL操作功能，然后将数据excel导入TXT OPEN方法，如软件开发，程序设计。
答：Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件 xlApp.Visible = False '设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets(1) '设置活动工作表 '获取有效数据列数 C= xlSheet.UsedRang...
答：如果只是这一个文件可以直接用公式做出来，另存为txt即可。如果是很多文件需要转换，就要写个小程序，代工，点名字可以查联系方式。
答：1，在EXECEL中选用录制宏的方式，录制一个过程作为读数据存到TXT文件的主程序。选中2，5，7，10行，另存为text.txt。完成宏录制。2，在录制的宏中进行编辑。这部分要根据行有多少个格子来操作，比如这4行的列格子都没超过10个，可取1到10循环，读取每个Cell的值，读取后判断这个Cell是否为空：" "...
答：Sub WriteText() '导出为文本文件 Dim FileName$, FileNum%, intRow&, i&, intCol%, j%, cTxt$ '变量 FileName = ThisWorkbook.Path & "\" & Sheet1.Name & ".txt" '文件名 FileNum = FreeFile '提供一个尚未使用的文件号 intRow = Range("a65536").End(xlUp).Row '判断...
答：首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel XX.0 Object Library 其中 XX 的具体值，要看你计算机安装的OFFICE版本而定 Excel 2003 的，是 11.0 Excel 2010 的，是 14.0 给你一个通过VB操作EXCEL的例子的代码:Dim excel_App As Excel.Application '声明Excel对象变量 Dim ex...
答：初学VBA程序，也就来试试，代码如下：Sub abcd()Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9On Error Resume NextSet mysheet1 = ThisWorkbook.Worksheets("Sheet1")Set fs = CreateObject("Scripting.FileSystemObject")Set fi = fs.CreateTextFile("d:\Code123.txt"...
答：这个需要用VBA代码来完成，如下：Sub test()Dim rG As Range, wb As Workbookf = MsgBox("已经选好数据区域了吗？" & Chr(10) & "Yes---选好了。 No---还没有。", vbYesNo, "已经选好数据区域了吗？")If f = 7 Then Exit SubApplication.DisplayAlerts = FalseSet rG = Selecti...
答：打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。注意第10行的vbTab，这个就是分隔符，只不过是Tab键产生的空格。你可以更改为想要的分隔符，例如：Strtemp = ...
答：实际上有点疑问：比如你的Excel表格有三个表，那么生成txt文件时，以哪个表的数据为准呢，貌似这种情况下excel保存会出错的吧？保存代码很简单：for each wb in workbooks wb.Saveas wb.Path & "\" & split(wb.name,".")(0) & ".txt"next 如果仅仅只是更名，那么name方法就可以解决了！！
网友评论：
昌侍19399424837：
使用vb语言把excel表格转换成txt文件 [50分] -
27946楚航
： Sub s() Dim intLastRow, arr, intLoop, t intLastRow = Cells(Rows.Count, 1).End(xlUp).Row arr = Range(＂a1:b＂ & intLastRow) For intLoop = 1 To UBound(arr) If intLoop Mod 10 = 1 Then t = ＂D:\ceshi\＂ & Int(intLoop / 10) + 1 If Dir(t, vbDirectory) ...
昌侍19399424837：
如何用VB实现EXCEL转换成固定长度的TXT文档 -
27946楚航
： 不知道你会不会用notepad++,用里面的替换功能把所有数字之间的空格替换成回车,即 ＂ ＂(空格)替换成\r\n (回车) 如果用ultraEdit 那就把空格替换成 ^p 替换完后,你把所有内容拷贝到excel的A列,接下来就要用公式转换了.在B1输入公式: =INDIRECT(＂a＂&ROW()*4-3)*100000+INDIRECT(＂a＂&ROW()*4-2)*1000+INDIRECT(＂a＂&ROW()*4-1)*10+INDIRECT(＂a＂&ROW()*4)/10 然后把B1往下拉并且把B列设置成“数值”保留一位小数就完成了
昌侍19399424837：
如何用VB实现EXCEL转换成固定长度的TXT文档
27946楚航
： 如何操作Excel文件 全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口: ExcelID.Visible := True; 2) 更改 Excel 标题栏: ExcelID.Caption := '应用程序...
昌侍19399424837：
用VB读取EXCEL表中的单元格内容,逐行转换成XML格式的文件 -
27946楚航
： 私人小组Command1_Click()点心XL作为Excel.Application的昏暗的xlbook作为Excel.Workbook 设置为XL =的CreateObject(“Excel.Application的”) xl.Visib...
昌侍19399424837：
EXCEL中用vba把一行内容按列转成txt格式的代码? -
27946楚航
： 下面的代码测试通过,能够满足你的要求:Option ExplicitSub YgB() Dim i, j, n, m, arr For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row n = ＂c...
昌侍19399424837：
vb中怎么读取excel文件 -
27946楚航
： 1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本...
昌侍19399424837：
VB如何将网页表格转成txt文件 -
27946楚航
： 可以把excel的东西先导入到datatable中,然后再导成txt格式 下面是导入到datatable的例子 Dim openbox As New OpenFileDialog openbox.ShowDialog() Dim filename As String = openbox.FileName Dim myConn As New System.Data.OleDb.OleDbConnecti
昌侍19399424837：
如何用vb 把Excel 当成数据库来操作 ? -
27946楚航
： 我做过用java操作excel的. 流程是首先要有用户程序与excel的接口,在java中用的是jcom或poi. vb是可以直接操作excel的. 那么问题就简单了. 就是简单的操作文件了. 你可以在excel里录制各种操作的宏,看代码写vb程序.
昌侍19399424837：
excel中编的vb程序如何编译成EXE程序 -
27946楚航
： 因为excel里面的vb是用来实现VBA,也就是在excel里面用到的宏的 它嵌在excel文件里面,解释执行,所以不生成exe文件
昌侍19399424837：
VB2010下,如何将从Excel复制的数据粘贴到txt文件? -
27946楚航
： 直接另存为csv文件,然后将文件名改为txt,因为csv实际上就是文本文件,只不过数据间是用逗号分隔
