怎么用VB每隔5分钟把一个数据写入excel表、文件，每个月新建一个excel文件，提供源代码

'打开VB，新建工程，插入以下代码

Dim tNum As Long

Private Sub Form_Load()

tNum = 0

Timer1Interval = 1000 '设置Timer1的间隔时间（暂时按每五秒保存一次），单位为毫秒，一秒钟等于1000,5分钟等于多少自己算出来后改

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

tNum = tNum + 1 '按上述设置的时间，每秒钟tNum加1

If tNum Mod 5 = 0 Then '如果tNum能被5整除，则说明经过了五秒，则保存一次，注意设置其他的时间的时候，要自己计算，

SaveExcel "需要写入的数据A", "需要写入的数据B" '这个需要写入的数据可以自定义

End If

End Sub

Function SaveExcel(Texta As String, Textb As String) '定义一个函数，用来保存数据到Excel，从A1开始检查，

Dim appExcel As Object

Dim BookExcel

Dim ExcelName As String

Dim i As Long

ExcelName = Year(Date) & Format(Month(Date), "00") & "xls" '按年+月命名Excel工作簿

Set appExcel = CreateObject("ExcelApplication")

appExcelVisible = 0

If Dir(AppPath & "\" & ExcelName) = "" Then '如果当前目录下未发现当月的工作簿，则新建一个写入数据并保存

Set BookExcel = appExcelWorkbooksAdd

Set ExcelSheet = BookExcelSheets("Sheet1") '选定名叫Sheet1的工作表

For i = 1 To 65536 '从第1行开始检查，如果单元格是空的就写入变量Text后退出。从第几行开始可以自已设定

If ExcelSheetCells(i, 1) = "" Then

ExcelSheetCells(i, 1) = Texta 'Cells为i行，1列，行列自己定义，要多加自己加

ExcelSheetCells(i, 2) = Textb

Exit For

End If

Next

BookExcelSaveAs AppPath & "\" & ExcelName

BookExcelClose

Else

Set BookExcel = appExcelWorkbooksopen(AppPath & "\" & ExcelName) '如果存在则打开工作簿

Set ExcelSheet = BookExcelSheets("Sheet1") '选定名叫Sheet1的工作表

For i = 1 To 65536 '从第1行开始检查，如果单元格是空的就写入变量Text后退出。从第几行开始可以自已设定

If ExcelSheetCells(i, 1) = "" Then

ExcelSheetCells(i, 1) = Texta 'Cells为i行，1列，行列自己定义，要多加自己加

ExcelSheetCells(i, 2) = Textb

Exit For

End If

Next

BookExcelSave

BookExcelClose

End If

Set BookExcel = Nothing

Set ExcelSheet = Nothing

appExcelQuit

End Function

'VB6，WIN7下测试通过。使用的时候有神马问题请留言

1、查询SQL中的所有表： Select TABLE_NAME FROM 数据库名称INFORMATION_SCHEMATABLES Where TABLE_TYPE='BASE TABLE' 执行之后，就可以看到数据库中所有属于自己建的表的名称 2、查询SQL中所有表及列： Select dbosysobjectsname as Table_name, dbosyscolumnsname AS Column_name FROM dbosyscolumns INNER JOIN dbosysobjects ON dbosyscolumnsid = dbosysobjectsid Where (dbosysobjectsxtype = 'u') AND (NOT (dbosysobjectsname LIKE 'dtproperties')) 3、在Sql查询分析器，还有一个简单的查询方法： EXEC sp_MSforeachtable @command1="sp_spaceused ''" 执行完之后，就可以看到数据库中所有用户表的信息 4、查询总存储过程数:select count() 总存储过程数 from sysobjects where xtype='p' 附：xtype类型D = 默认值或 DEFAULT 约束

F = FOREIGN KEY 约束L = 日志FN = 标量函数

IF = 内嵌表函数

P = 存储过程

PK = PRIMARY KEY 约束（类型是 K）

RF = 复制筛选存储过程S = 系统表TF = 表函数

TR = 触发器U = 用户表UQ = UNIQUE 约束（类型是 K）V = 视图X = 扩展存储过程 另：在sqlserver中取得某个数据库中所有表名的sql语句 select sysobjectsname from sysobjectsxtype ='U';SELECT name

WHERE (xtype = 'U') 在数据库的sysobjects表里有这个数据库全部表的信息, xtype值为'U'的就是表名 注意：一般通过上述方法获得全部用户表示都会有一个dtproperties表，SQLSERVER 默认它也是用户表，想要从用户表中排出，需要加上限定条件 status>0，即：select from sysobjects where xtype='U' and status>0

有bit这个类型吗？

typedef unsigned int   type_s;

typedef void(funty)(); 

typedef type_s type_s_point;

typedef BOOL(bit_fun)(funty,type_s_point,type_s);

funty a;

type_s_point b;

bit_fun t_t;

BOOL pp(funty e,type_s_point f,type_s g)

{

 e=0;

  f=0;

  g=0; 

  return 0;

}

void main()

{

t_t=pp;

(t_t)(a,b,10);

}

以上就是关于怎么用VB每隔5分钟把一个数据写入excel表、文件，每个月新建一个excel文件，提供源代码全部的内容，包括:怎么用VB每隔5分钟把一个数据写入excel表、文件，每个月新建一个excel文件，提供源代码、我在数据源中加入的表结构，如果我更换SQlserver的话，需要重新编辑数据源码、关于C语言自定义带函数指针类型参数的函数指针数据类型问题，详情请看源代码。捉急啊！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！