一、将VB数据保存成excel
'菜单“工程/引用”，勾选Microsoft Excel 11库，必须的
Private Sub Timer1_Timer()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application")
On Error GoTo prcERR
Set xlBook = xlApp.Workbooks.Open("c:1.xls") '打开你的EXCEL文件
Set xlSheet = xlBook.Worksheets(1) '第一个表格
xlSheet.Application.Visible = True '设置Excel 可见
xlSheet.Cells(2, 1) = Text1.Text '第2行第一列
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Exit Sub
prcERR:
Debug.Print Err.Number & ":" & Err.Description
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000 '一分钟
End Sub
二、怎么保存excel文件
excel表怎么进行保存
一般新建EXCEL表后，立即用开始菜单的另存为，选择文件夹和输入文件名。当然，新建的EXCEL表在关闭EXCEL时会自动通知你输入保存的文件名。
如果是盗版的没法修改、保存，另存为也不行。
EXCEL怎么保存为xls文件
将打开的EXCEL另存为，下面有一个保存类型。在里面挑选*xls保存即可。
如何保存文件为.excel格式
设点击【另】按钮我到文件的默认保存为Excel工作簿后缀名默（.xlsx）
点击【文件】按钮，在弹出的快捷菜单中点击【选项】按钮
在弹出的选项对话框中点击【保存】按钮
单击将文件保存为此格式下拉按钮，在弹出的下拉列表中选择【Excel 97～2003工作簿（.xls）】，单击【确定】按钮，退出选项对话框，完成设置
这时，在保存新的Excel工作簿时，另存为对话框中的保存类型默认被选为刚才设置的文件格式
同时，我们可以看到，Excel的新建工作簿运行模式为【兼容模式】
如何将EXCEL表格保存为模板
1、电开Excel表格，做好文档。
2、编辑好要模板的Excel表格，直F12快，调出保界面，点击保存WPS文档。
3、选择WPS文档后，文件类型选择为Excel模板，然后点击确定。
4、新建文档时，点击新建，然后选择本机上的模板。
5、进入模板界面，选择保存的模板然后点击确定就可以打开模板使用了。
三、怎么将txt文件存成excel
将txt中的数据转到excel表中，做为matlab的数据源。步骤如下：下载一个Microsoft.Office.Interop.Excel.dll 在项目中引用。
编写代码如下：
string path = "c://date//xyu.txt";
StreamReader sr = new StreamReader(path);
string strLine = sr.ReadLine();
int rowNum = 1;
object missing = System.Reflection.Missing.Value;
ApplicationClass app = new ApplicationClass();
app.Application.Workbooks.Add(true);
Workbook book = (Workbook)app.ActiveWorkbook;
Worksheet sheet = (Worksheet)book.ActiveSheet;
while (!string.IsNullOrEmpty(strLine))
{
string[] tempArr;
tempArr = strLine.Split(',');
for (int k = 1; k <= tempArr.Length; k++)
{
sheet.Cells[rowNum, k] = tempArr[k - 1];
}
strLine = sr.ReadLine();
rowNum++;
}
//保存excel文件
book.SaveCopyAs("D://source.xls");
//关闭文件
book.Close(false, missing, missing);
//退出excel
app.Quit();
MessageBox.Show("转化成功！");
以上代码可以实现功能，由于txt中的数据有60501行，数据量太大。估算了一下，用以上代码转到excel要用大约2-3分钟。用rang方法可以提高速率。只用大约3-4秒钟的时间，提高效率几十倍。代码如下：
string path = "c://date//xyu.txt";
StreamReader sr = new StreamReader(path);
string strLine = sr.ReadLine();
int rowNum = 1;
object missing = System.Reflection.Missing.Value;
ApplicationClass app = new ApplicationClass();
app.Application.Workbooks.Add(true);
Workbook book = (Workbook)app.ActiveWorkbook;
Worksheet sheet = (Worksheet)book.ActiveSheet;
Range r = sheet.get_Range("A1", "C1");
//获取行数
object[,] objectData = new object[65535, 3];
while (!string.IsNullOrEmpty(strLine))
{
string[] tempArr;
tempArr = strLine.Split(',');
for (int k = 1; k <= tempArr.Length; k++)
{
objectData[rowNum-1, k-1] = tempArr[k - 1];
}
strLine = sr.ReadLine();
rowNum++;
}
r = r.get_Resize(65535, 3);
r.Value2 = objectData;
r.EntireColumn.AutoFit();
//保存excel文件
book.SaveCopyAs("D://source.xls");
//关闭文件
book.Close(false, missing, missing);
//退出excel
app.Quit();
MessageBox.Show("转化成功！");
