1. vb如何新建文件

1）运行VB，新建标准EXE工程，点击工具-菜单编辑器。

2）在标题框键入菜单可见文字，在名称中键入代码中该菜单的名称。

3）鼠标在菜单编辑器下部的文件蓝亮条下方点击，出现下一菜单编辑亮条，在往右箭头按钮处点击。

4）在标题和名称框中填入二级菜单的所需内容，同步骤2。

5）依次重复3、4、2步骤可增加二级菜单项目数。

2. excel vb项目

测试成功，原码：

Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.rangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Addxlapp.Visible = Truexlbook.sheets(1).range("a1") = "新建成功"xlbook.SaveAs App.Path & "/测试.xls"xlbook.CloseEnd Sub

3. vb新建excel文件

是这样的吗,建一个模块,在里面加入以下代码: Function grade(js As Integer, bs As Integer) If js >= 85 And bs >= 85 Then grade = "优秀" ElseIf js < 60 And bs < 60 Then grade = "不合格" Else grade = "合格" End If End Function

4. vb excel编程实例

电脑上新建Excel文件，例如命名为“Excel 工作表”~！！！

双击“Excel 工作表”，打开excel文件~！！！

键盘上按下Alt+F11，即可弹出VB的编程界面

VB编程界面的上方就是工具栏，和一般工具栏分布一样

VB编程界面的左上方就是所有Sheet的列表

VB编程界面的左下方就是某一Sheet的详细信息

VB编程界面的正中间就是编程的主要区域

5. vb 新建excel

由于你描述得太简单了，所以，只能给你提供一个思路，请按照此思路，进行修改完善代码即可。

Sub FileJoin() Dim Wb As Workbook Dim cPath$, myFile$ cPath = ThisWorkbook.Path & "\"'获取本文件所在路径 '如果扩展名不是xls请修改为你实际的扩展名 myFile = Dir(cPath & "*.xls"

) Set Wb = ThisWorkbook Application.ScreenUpdating = False Do While myFile <> "" If myFile <> ThisWorkbook.Name Then With Workbooks.Open(cPath & myFile) '将子文件中的第一个工作表复制到本工作薄中 .Sheets(1).Copy after:=Wb.Sheets(Wb.Sheets.Count) .Close False End With End If myFile = Dir'在本文件夹下查找下一个xls扩展名的文件 Loop Application.ScreenUpdating = True MsgBox "汇总完毕！", vbInformation, "提示"End Sub

6. vb新建文件

Private Sub Form_Click() fname = InputBox("请输入文件名：", "请保证文件名正确，如例子", "d:\temp.txt") fn = FreeFile '获取一个空闲可用文件号 Open fname For Output As fn '打开fname指名的文件用于输出 Print #fn, "你好，这是要输入到文件中的内容" Print #fn, "你好，这是要输入到文件中的第二行内容" Close fn '关闭文件，记得用完文件要关闭它End Sub