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
這個可以直接從進程滅掉。