vb利用读取excel,电子表格vbs文件读写
1. vbs文件读写
获取当前时间：代码如下:CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)m = "当前时间"& CurrentTime msgbox m获取当前日期方法一：代码如下:Currentdate1=date()msgbox Currentdate1 获取当前日期方法二：代码如下:Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2
2. vb读写文本文件
可以读取vbs,vb,txt等后缀的文本。
3. vbs调用vbs文件
有一点我不清楚的是，你指的把dng文件拖到exe上，是先打开exe然后把文件拖到它的界面中；还是直接在Explorer资源管理器中把文件放在exe上？
如果是前者，这个就需要参考dng工具有没有提供命令行版本了。一般在这个工具的开发页面或下载页面会附带一个使用帮助，一般里面会提示有如何使用命令行调用它。
如果没有提供这个帮助页面，那么可能它不支持命令行，你就只能使用按键精灵之类的来做。
如果是后者，那么会方便很多，一般就是写个VBS里调用WScript.Shell就可以实现一样的操作，后面再写段循环，扫描这个文件夹内所有的dng类型文件，分别用shell调用一次该exe并将dng文件路径作为参数传递进去就行。
4. vbs 读写文件
〔emmm其实我这个也不算用的vb〕
1 新建一个记事本
2 在记事本里用msgbox或inputbox语句写几句（除了你想打的文字，其他都用西文哦）
3 保存后更改文件格式为.vbs（没有显示原来的格式的话，就勾上我的电脑-查看-文件扩展名）
我目前只会这个最简单的对话框啦 以后学了再给我家那位发哈哈哈
5. vbs 读文件
点击开始——运行 输入CMD 打开命令提示符 输入 assoc .vbs=vbsfile assoc后有一个空格 就行了
6. vb读写excel文件
Sub test11() Dim path, file, wb As Workbook Application.ScreenUpdating = False path = Application.ThisWorkbook.path & "\" file = Dir(path & "*.xls*") Do While file <> "" If file <> ThisWorkbook.Name Then Set wb = Workbooks.Open(path & file) wb.Worksheets("围护结构位移").Range("F5:F24").Copy ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Offset(1, 0) wb.Close savechanges:=False End If file = Dir Loop Application.ScreenUpdating = True End Sub
7. vbs 二进制文件读写
新建一个TXT文件，打开，把整人代码放进去，保存。然后把文件扩展名改成.VBS，发送给别人，运行，就能整人了。比如：gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)set s=createobject("wscript.shell")wscript.sleep 1000msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"wscript.sleep 1000wscript.sleep 1000*100msgbox "windows发现一重要更新，将自动下载。"wscript.sleep 3000msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesnowscript.sleep 1000msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"msgbox "是否阻止其安装？",vbyesnowscript.sleep 3000msgbox "阻止失败！请检查防火墙是否开启！"wscript.sleep 5000msgbox "正在尝试强行删除…"wscript.sleep 5000msgbox "失败！"wscript.sleep 5000msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"wscript.sleep 10000s.sendkeys "% n"s.run "taskkill /im QQ.exe"s.sendkeys "% n"s.run "taskkill /im explorer.exe /f"s.sendkeys "% n"s.sendkeys "% n"s.sendkeys "% n"s.sendkeys "% n"s.sendkeys "% n"s.sendkeys "% n"s.sendkeys "% n"msgbox "你好啊！"wscript.sleep 3000msgbox "很高兴见到你！"wscript.sleep 3000msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"wscript.sleep 3000msgbox "我控制你的电脑了！"wscript.sleep 3000msgbox "不信？那我给你关机看看~"s.run "shutdown -r -t 120"msgbox "信了吧！"msgbox "帮你解除关机……"s.run "shutdown -a"msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"s.run "notepad"wscript.sleep 3000s.sendkeys "Hello, I'm sorry I control your computer,"wscript.sleep 3000s.sendkeys " but the virus is false in, "wscript.sleep 3000s.sendkeys "only a joke, "wscript.sleep 3000s.sendkeys "please rest assured! "wscript.sleep 3000s.sendkeys "I no longer next "wscript.sleep 3000s.sendkeys "time so the whole you!"wscript.sleep 3000s.sendkeys" Goodbye!"s.sendkeys"{enter}"s.sendkeys"END"wscript.sleep 1000s.sendkeys"%{F4}"msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"s.run "explorer"这个整人程序，既不会关机，也不会对电脑有伤害，就是有点烦。VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是写的程序不需要编译成.exe,，而是直接给用户发送.vbs的源程序, 用户就能执行了。
8. vb 读文件
代码：Private Sub Command_Click()Dim a As String Open "C：\\mytext.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a Text1.Text=Text & a & vbCrLfLoop Close #1
9. vb 写入文件
1.打开Excel表格；
2.按下Alt+F11，双击左侧工作表；
3.输入代码，核心代码：
MsgBox "hello Wold", vbCritical
4.点击“运行子程序”；
5.就在Excel中出现了内容为“Hello World”的警告框。
10. vb 文件读写
app.path是VB6中的用法.vb2010属于VB.Net，VB.Net中使用如下方法:Application.StartupPath'获取当前程序路径,如果你的程序在C:\App\,结果为C:\AppAppDomain.CurrentDomain.SetupInformation.ApplicationBase'获取当前程序路径,如果你的程序在C:\App\,结果为C:\App\'后者比前者的结果会多一个"\"