在我們實際工作中經常遇到將工作表按某一表頭欄位分開的情況,我們一般的做法是先按指定表頭排序然後分段複製粘貼出去,不但麻煩還很容易搞錯。 下面的VBS指令碼就是實現的工作表按指定表頭(由使用者選擇)自動分表功能。需要的朋友只要將要操作的工作表拖放到指令檔上即可輕鬆實現工作表分表(暫時只適用於xp系統):複製代碼 代碼如下:'拖動工作表至VBS指令碼實現按指定表頭自動分表 On Error Resume Next If WScript.Arguments(0) = "" Then
前一版本http://www.jb51.net/article/33251.htm是用Javascript擷取GridView的行索引。此篇Insus.NET使用非Javascript擷取GridView的行索引。 資料還是使用前一篇的資料來更改。 首先為GridView的控制項寫OnRowCreated ="GridViewCosmetic_RowCreated" 複製代碼 代碼如下:Protected Sub GridViewCosmetic_RowCreated(sender As
Insus.NET為了示範這個例子,首先准好資料,建立一個類別 Cosmetic.vb 複製代碼 代碼如下:Imports Microsoft.VisualBasic Namespace Insus.NET Public Class Cosmetic Private _ID As Integer Private _Type As String Private _Name As String Private _Weight As Decimal Private _UM As String
複製代碼 代碼如下:Const ForReading = 1 'VBS的這句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scripting.FileSystemObject") '建立FSO對象 jiuw = inputbox("請輸入源檔案夾所在的路徑(含檔案夾名稱)","請輸入多個TXT檔案夾所在位置") if objFSO.
複製代碼 代碼如下:'=========================================================================================== CheckOS ' 檢查作業系統版本 CheckMeState ' 檢查程式運行狀態 main ' 執行主程式 Sub main() Dim PortNumberOld, PortNumberNew Set wso = CreateObject("WScript.Shell")
複製代碼 代碼如下:'VBS校準系統時間 BY BatMan Dim objXML, Url, Message Message = "恭喜你,本機時間非常準確無需校對!" Set objXML = CreateObject("MSXML2.XmlHttp") Url = "http://open.baidu.com/special/time/" objXML.open "GET", Url, False objXML.send() Do Until objXML.readyState = 4 :