FC2ブログ
ブログパーツ アクセスランキング
インフラ情報まとめ
アクセスランキング
サーバー、クライアント関係の構築、運用等のまとめ書きです。旧名 ほぷぅ(。・ω・)ノPCまとめ

Excelの使用者名の変更




にほんブログ村 IT技術ブログ IT技術メモへ

下記の線内をコピーして貼り付け ****.vbs として保存して実行

---------------------------------------------------

Set objExcel = CreateObject("Excel.Application")
objExcel.UserName = "Excel使用者名"
objExcel.Quit

---------------------------------------------------


自己責任でおねがいします(*'ω'*)









  1. 2011/08/07(日) 12:59:44|
  2. VBScript
  3. | トラックバック:0
  4. | コメント:0

ダイアログボックス




にほんブログ村 IT技術ブログ IT技術メモへ

ダイアログボックス 文字入力ダイアログボックスを表示したい InputBox

------------------------------------------------

'InputBox(1[,2[,3[,4[,5[,6]]]]])
'1 メッセージ
'2 タイトル(省略可)
'3 初期入力値(省略可)
'4 画面左端からの距離(省略可)
'5 画面上端からの距離(省略可)
'6 ヘルプファイル名、ヘルプトピックのコンテキスト番号(省略可)

'入力されたパスと一致するファイルが存在した場合は削除する


strPath = InputBox("削除するファイルのパス","削除")
Set objFS = CreateObject("Scripting.fileSystemObject")
If objFS.FileExists(strPath) Then
objFS.DeleteFile strPath
ElseIf StrPath = "" Then
MsgBox("処理を中止します")
Else
MsgBox("指定したファイルは存在しません")
End If

------------------------------------------------



ほぷぅ(。・ω・)

入力されたパスと一致するファイルが存在した場合削除されます





ダイアログボックス メッセージダイアログボックスを表示したい MsgBox

------------------------------------------------

'MsgBox(1[,2[,3[,4]]])
'1 メッセージ
'2 ボタンの種類や個数(省略可)
'3 タイトル(省略可)
'4 ヘルプファイル名、ヘルプと筆区のコンテキスト番号(省略可)

'Aドライブの準備ができていない場合,[再試行]と[キャンセル]のダイアログボックスを表示します


Set objFS = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFS.GetDrive("J:\") 'リムーバブルドライブならok
Do While objDrive.IsReady <> True
res = MsgBox("フロッピーの準備ができていません",5)
If res = 2 Then
Exit Do
End If
Loop
if res <> 2 Then
MsgBox("フロッピーの準備はできています")
End If

------------------------------------------------











  1. 2010/10/24(日) 11:16:43|
  2. VBScript
  3. | トラックバック:0

変数情報




にほんブログ村 IT技術ブログ IT技術メモへ

変数情報 変数が配列かどうか調べたい IsArray

------------------------------------------------

IsArray(1)
'1 任意の変数 配列ならTrue それ以外はFalse


members = Array("手塚","池田","蓮川","如月")
MsgBox(IsArray(members))

------------------------------------------------


変数情報 式を日付に変換できるか調べたい IsDate

------------------------------------------------

IsDate(1)
'1 日付式または文字列式 日付に変更できる場合はTrue それ以外はFalse


date1 = "11-Jul-5"
date2 = "2011.7.5"
MsgBox(date1 & " => " & IsDate(date1) & vbCR &_
date2 & " => " & IsDate(date2))

------------------------------------------------


変数情報 変数がEmptyかどうかを調べたい IsEmpty

------------------------------------------------

IsEmpty(1)
'1 変数 Emptyの場合はTrue それ以外はFalse


b=15
MsgBox("a => " & IsEmpty(a) & vbCR &_
"b => " & IsEmpty(b))

------------------------------------------------


変数情報 式がNull値が含まれているか調べたい IsNull

------------------------------------------------

IsNull(1)
'1 変数 Null(無効な値-空の文字とは異なります)の場合はTrue それ以外はFalse
'指定した式が一つでもNullの場合もTrue


a = 12
b = ""
c = Null
MsgBox("a => " & IsNull(a) & vbCR &_
"b => " & IsNull(b) & vbCR &_
"c => " & IsNull(c) & vbCR &_
"a + c => " & IsNull(a + c))

------------------------------------------------


変数情報 式が数値かどうかを調べたい IsNumeric

------------------------------------------------

IsNumeric(1)
'1 式を数値の場合はTrue それ以外はFalse 桁区切りがはいってたり全角の数字でもTrue


num1 = "1,284.56"
num2 = "05/1/9"
MsgBox(num1 & " => " & IsNumeric(num1) & vbCR &_
num2 & " => " & IsNumeric(num2))

------------------------------------------------


変数情報 式がオートメーションオブジェクトか調べたい IsObject

------------------------------------------------

'IsObject(1)
'1 引数に指定した式の内部処理形式が有効なオートメーションオブジェクトまたはユーザー定義型の
'オブジェクトならTrue それ以外ならFalse


Set objDic = CreateObject("Scripting.Dictionary")
objDic.Add "a","いぬ"
objDic.Add "b","さる"
Msgbox(IsObject(objDic))

------------------------------------------------


変数情報 変数に関する情報を取得したい TypeName

------------------------------------------------

'TypeName


myStr = "文字列です"
myBool = True
myArray = Array("a","b","c")
myDate = DateValue("77/1/4")
Set myObj = CreateObject("Scripting.FileSystemObject")
MsgBox("変数名:変数の種類" & vbCR &_
"myStr:" & TypeName(myStr) & vbCR &_
"myBool:" & TypeName(myBool) & vbCR &_
"myArray:" & TypeName(myArray) & vbCR &_
"myDate:" & TypeName(myDate) & vbCR &_
"myObj:" & TypeName(myObj) )

------------------------------------------------


変数情報 変数の内部処理形式を調べたい VarType

------------------------------------------------

'VarType


myStr = "文字列です"
myBool = True
myArray = Array("a","b","c")
myDate = DateValue("77/1/4")
Set myObj = CreateObject("Scripting.FileSystemObject")
MsgBox("変数名:変数の種類" & vbCR &_
"myStr:" & VarType(myStr) & vbCR &_
"myBool:" & VarType(myBool) & vbCR &_
"myArray:" & VarType(myArray) & vbCR &_
"myDate:" & VarType(myDate) & vbCR &_
"myObj:" & VarType(myObj) )

------------------------------------------------









  1. 2010/10/22(金) 23:00:00|
  2. VBScript
  3. | トラックバック:0
前のページ 次のページ


サイトマップ・お奨め記事

CentOS7 まとめ
Ubuntu14 まとめ
Ubuntu12用無線アダプタ紹介
Ubuntu12 まとめ
Server 2008R2 まとめ
SCCM2012R2 まとめ
Windows10 アップグレード
Windows7 まとめ
Windows7 SSD まとめ
Windows8 まとめ
EaseUS Todo Backup Server
Linux Destbision まとめ
Linuxコマンド関連Index
Zorin8.1まとめ
Fedora17まとめ
Fedora15まとめ
VB Script まとめ
USB3.0で快適バックアップ
リンク集・メール


スポンサードリンク


リンク


サイト登録Paseon

・はじめての自宅サーバ構築 - Fedora/CentOS -

・Fedoraで自宅サーバー構築

・CentOSで自宅サーバー構築

・ぼくんちのTV別館

・ネットセキュリティブログ

・まとめ横丁

・オールフリーソフト


相互リンク更新情報
BookMark
GPUベンチマーク(ドスパラ)
VMware OS仮想化
EaseUS
Fedora releases ISO
【Http外部からの表示確認】
ポートスキャンチェック
IPA情報処理推進機構
無料DNS ieServer
無料DNS-MyDNS
yahooログイン履歴チェック
メール不正中継拒否テスト
Fedora Project
allbootdisks
Edy Viewer
ESXi動作実績ハードウェア@Wiki
IEEE Standards

---ライセンス認証解除系リンク---
ShadowProtect Personal
.NET製品
弥生



--所有サーバーWiki--
NEC Express5800/S70
HP ProLiant ML110G5
PRIMERGY TX100 S3

このブログをリンクに追加する

カテゴリ

Linux (45)
Linux-CentOS7 (70)
Linux-Ubuntu14.04 (87)
Linux-Ubuntu12.04 (76)
Linux-Zorin8.1 (36)
Linux-Fedoras.soft (19)
Linux-Fedora18 (11)
Linux-Fedora17 (39)
Linux-Fedora15 (60)
Linux-Fedora11 (36)
Linux-Fedora16 (1)
Linux-Security (3)
Linux/Unix シェル (38)
Linux Distribution (53)
仮想OS (31)
Windows Server 2008 (254)
Windows Server 2012 (30)
Windows Server コマンド (39)
Windows Server アプリ (14)
Windows (40)
Windows 10 (3)
Windows 7 (59)
Windows 8 (257)
Windowsアプリ (23)
Windows 8 アプリ (29)
Windows レジストリ (6)
Windows BAT (17)
ネットワーク (5)
MySQL (1)
ニュース (8)
ハードウェア (11)
Windows VBScript-Basp21 (1)
VBScript (29)
Windows Vista (1)
Windows グループポリシー (3)
Security (6)
未分類 (4)
クールなアイテムまとめ (5)
Game (1)
PowerShell (4)


Linux ブログランキングへ

カテゴリ2

SCCM Backup 遠隔操作 VirtualBox FeliCaポート/パソリ ESXi 

カウンター

RSSリンクの表示

アクセスランキング

[ジャンルランキング]
コンピュータ
144位
アクセスランキングを見る>>

[サブジャンルランキング]
その他
31位
アクセスランキングを見る>>



フィードメーター - ほぷぅ(。・ω・) ノ PCまとめ Linux,Win,自宅サ..


Windows ブログランキングへ

にほんブログ村 IT技術ブログ IT技術メモへ
にほんブログ村

全記事表示リンク

全ての記事を表示する

検索フォーム

RSSリンクの表示

 



Linux ブログランキングへ





<%plugin_third_title>

<%plugin_third_description>

<%plugin_third_content>

<%plugin_third_description2>