vbs脚本输出到excel
⑴ 如何通过VBS编写脚本程序，读取EXCEL当前选择的单元格的地址，放入txt里（注意不是VBA）
Setxls=GetObject(,"Excel.application")
SetActiveCell=xls.ActiveCell
MsgBoxActiveCell.Address
注意要保证获取到的xls对象的当前工作簿就是你要获取的那个，当有多个excel进程时这一点尤其重要，vba的多年老毛病了，到2017了也没见改正，真无语
⑵ 如何用VBS将TXT的内容写入到excel里
设文件为F:\Data.txt,保存到F:\Data.xls,如果F:\Data.xls存在，则覆盖，请注意！
TxtUrl = "F:\Data.txt"
XlsUrl = "F:\Data.xls"
Set xls = CreateObject("Excel.Application")
xls.Visible = True
xls.DisplayAlerts = False
Set xlTxt = xls.Workbooks.Open(TxtUrl)
Set xlsheet = xlTxt.Worksheets(1)
xlsheet.Range("A:A").TextToColumns xlsheet.Range("A1"), 1, , , , , True, , True, "，"
xlTxt.SaveAs XlsUrl,56
xlTxt.Close
xls.DisplayAlerts = True
if xls.Workbooks.Count = 0 then
xls.Quit
end if
⑶ Vbscript如何读入Excel数据
vbs读取excel脚本倒是好说，但你的程序明显在vb与vba之间，恕我看不懂。 给你个例子参考下：
' Read an Excel Spreadsheet
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Scripts\New_users.xls")
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
Wscript.Echo "CN: " & objExcel.Cells(intRow, 1).Value
Wscript.Echo "sAMAccountName: " & objExcel.Cells(intRow, 2).Value
Wscript.Echo "GivenName: " & objExcel.Cells(intRow, 3).Value
Wscript.Echo "LastName: " & objExcel.Cells(intRow, 4).Value
intRow = intRow + 1
Loop
objExcel.Quit
⑷ 通过vbs脚本或者bat脚本，实现获取文件名和文件大小等信息并输出到Excel文档
生成到EXCEL里的不会，但是可以生成CSV文件
自己建一个VBS文件，把下面的代码扔进去。
可以自己制定路径，生成C:\1.csv文件。
dim SF,sE,tF
dim fs,oF,sT
sub getFd(fd)
wrtf fd
for each tmpFd in fd.subfolders
getFd tmpFd
next
end sub
sub wrtF(fd)
for each tmpfile in fd.files
sE.write tmpfile.name & "," & tmpfile.size & vbcrlf
next
end sub
sF = InputBox("input your path")
set fs = CreateObject("Scripting.FileSystemObject")
set oF = fs.GetFolder(sF)
tF="C:\1.csv"
if fs.FileExists(tF) then
fs.DeleteFile tF
end if
set sE = fs.OpenTextFile (tF, 8, True)
sE.write "name,size" & vbcrlf
getFd oF
sE.close
msgbox "done!"
⑸ 如何用VBS实现将记事本内容写入EXCEL中
设文件为F:Data.txt,保存到F:Data.xls,如果F:Data.xls存在，则覆盖，请注意！
TxtUrl="F:Data.txt"
XlsUrl="F:Data.xls"
Setxls=CreateObject("Excel.Application")
xls.Visible=True
xls.DisplayAlerts=False
SetxlTxt=xls.Workbooks.Open(TxtUrl)
Setxlsheet=xlTxt.Worksheets(1)
xlsheet.Range("A:A").TextToColumnsxlsheet.Range("A1"),1,,,,,True,,True,"，"
xlTxt.SaveAsXlsUrl,56
xlTxt.Close
xls.DisplayAlerts=True
ifxls.Workbooks.Count=0then
xls.Quit
endif
请给出Excel的格式，并说明，要不怎么知道怎么填？
⑹ VBS脚本，想要读取到windows系统的账号和excel里面的数据
set xlapp=getobject(,"excel.application")
set xlbook=xlapp.workbooks("工作簿1")
set xlsheet=xlbook.sheets("sheet1")
msgbox xlsheet.range("a1")'''读取数据
xlsheet.range("a1")=10000''''写数据
xlbook.save'''未保存过用saveas 路径 这是保存
xlbook.close true ''关闭工作簿1
xlapp.quit '''退出excel
⑺ 如何用VBS脚本把WINCC内部变量的值写入EXCEL
wincc的时候返回一个值给main，然后使用VBS调用执行后得到这个返回值，创建excel对象，然后使用cells写入对应单元格VBSSetobjExcel=CreateObject("Excel.Application")Scriptpath=WScript.ScriptFullNamesetobjWorkbook=objExcel.Workbooks.Open(FilePath)objExcel.Visible=TrueobjExcel.Cells(1,2)=内部变量值
⑻ 如何使用VBS脚本程序读EXCEL文件，有没有具体流程
如果是XP系统，可以使用如下代码
VBS控制Excel的一些常见方法：
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
oExcel = CreateObject( "Excel.Application" )
1) 添加新工作簿：
oExcel.WorkBooks.Add
2) 打开已存在的工作簿：
oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )
3) 设置第2个工作表为活动工作表：
oExcel.WorkSheets(2).Activate
或
oExcel.WorksSheets( "Sheet2" ).Activate
4) 给单元格赋值：
oExcel.Cells(1,4).Value = "第一行第四列"
⑼ VBS如何将计算器结果导入到Excel表中
dim var
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
var = 1+2*3+4
objExcel.Cells(1, 1).Value = var
⑽ Vbscript导出EXCEL文件问题
这个问题我也遇到过，在进程上还可以把文件打开，或者打开其他excel时顺便也把那个excel打开了，那个excel只是被隐藏了，干脆直接来个绝的：
shell “cmd /c taskkill /f /im EXCEL.EXE”,vbhide
这个可以直接从进程灭掉。