vb里新建excel(新建vbs文件)

1. 新建vbs文件

1、首先右键单击，然后在弹出的对话框中选择新建文本文档。

2、把文件名改成。整人。然后双击打开文件。

3、输入无限循环命令：do loop，（这个文字有点小，我给大家放大一些。这样能看得更清楚。）

4、然后在循环命令之间输入：msgboX"想关闭我吗？"

5、输入完成后，单击关闭。然后选择保存。

6、文件的最后座缀改成 .vbs 按下回车键确定。然后在弹出的对话框中选择是。

7、双击打开文件整人，他就会无限弹窗。无论是鼠标还是键盘？都关闭不了弹窗。

2. vb新建文本文件

VB编写一个可以注册帐号的登录系统步骤：

1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。

2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLE DB连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。

5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

以下是用ADO数据对象编写的登录和注册的代码：

1）标准模块代码：

Option Explicit Public loginname As String Public cn As New ADODB.Connection '定义数据库的连接存放数据和代码 Public rs As New ADODB.Recordset Public sql As String Public Newname As String

2）注册窗体代码：

Option Explicit Dim Password As String Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1 <> "" Then sql = "select * from 用户管理 where 用户名='" & Text1.Text & "'" ' and 密码='" & Text2.Text & "'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "datadata.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic If rs.EOF = True Then '没有该用户名可以注册 MsgBox "用户名可以注册!" rs.Close cn.Close Newname = Text1.Text Text4 = Newname Text2.SetFocus Else MsgBox "该用户名已经存在，换名注册!" Text1.Text = "" Text1.SetFocus End If End If Exit Sub finish: MsgBox Err.Description End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2 <> "" Then Password = Text2.Text Text5 = Password Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text3.Text = Text2.Text Then Command3.Enabled = True Command3.SetFocus ElseIf KeyAscii = 13 And Text3.Text <> Text2.Text Then Text3 = "" Text3.SetFocus End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command3_Click() sql = "select * from 用户管理" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "datadata.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic rs.AddNew rs.Fields(0) = Newname rs.Fields(1) = Password rs.Update rs.Close cn.Close Command3.Enabled = False End Sub

3）登录窗体代码：

Option Explicit Dim pnum As Integer Private Sub Command1_Click() On Error GoTo finish '防错代码，防止意外而导致的退出 sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "datadata.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic '以上使用最通用的方法来查询数据库中是否有匹配的记录 If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的 If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出 pnum = pnum + 1 MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum rs.Close cn.Close Text1.Text = "" Text2.Text = "" Text1.SetFocus Exit Sub Else MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示" End End If Else loginname = rs.Fields(0) Form1.Show rs.Close cn.Close End If Exit Sub finish: MsgBox Err.Description rs.Close cn.Close End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '获取按键，如果是回车就运行image_click按钮的内容 Call Command1_Click End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() frmZhuce.Show End Sub

3. Vbs文件

1、首先在电脑鼠标右键 新建一个文本文档。

2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。

3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。

4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。

5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。

6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。

4. 怎么创建vbs文件

mac电脑用vbs代码的方法：

1.新建一个文件，把后缀名改为txt

2.双击打开编辑

3.编辑结束后把后缀名改为vbs，双击打开。

是由微软推出的一套基于Windows的脚本语言，该脚本无需编译成EXE可执行文件，而是直接将源代码通过宿主（Hosts）进行解释并执行。

5. vb如何新建文件

开启设备，点击进入，找到模块设置，然后找到module AI，然后进入模块设置，然后点击新建。点击确认就可

6. vbs新建文件夹

不能用并不是vbs文件本身，而是vbs执行代码不能用

7. 如何新建vbs文件

1、编写VBS代码可以使用任意一款文本编辑器来实现，在此小编强烈建议大家使用带有语法着色功能的文本编辑器（如EidtPlus32或Notepad++）来编写VBS代码。在具有语法着色功能的文本编辑器界面，点击“语言”下拉菜单，从中选择“VB”或“VBS”代码即可。

2、首先我们创建一个文本文件，或者利用文本编辑器编写如图所示的VBS代码：

3、点击“文件”-“另存为”菜单项，从弹出的“另存为”窗口中将“保存类型”选择为“All types（*.*），并输入文件名“hello.vbs”，点击“保存”按钮。

4、此时将会自动在对应目录中生成名为“hello.vbs”的文件，双击该文件，从弹出的窗口中输入内容，点击“确定”按钮，即可显示对应的弹出窗口。

5、代码说明：VBS代码中可以利用“REM”和“'”进行注释操作，注释的内容不会用于代码的执行过程，只是起到代码说明及解释作用，以方便于代码阅读。其此在VBS代码时，利用Inputbox和Msgbox实现输入输出操作。