hinekure　Excel-VBAExcel-VBA の ひ と り 言・・・ & Excel Game
Total　 　　Today　 　　Yesterday　

ブログ内検索 :

Offise2003と2007のボタンやメニューの位置

12:57

Offise2003のボタンやメニューの位置が2007では分からない時は
下記URLが参考になります。
って、皆知ってる。遅〜〜^^;;;
　　　↓
http://support.microsoft.com/kb/934714/ja

[ファイルを開く] ダイアログ ボックスを表示

21:23

GetOpenFilenameメソッドのヘルプを参考にして下さい。^^；；

Sub Test()
Dim FName As Variant
FName = Application.GetOpenFilename()
MsgBox FName
End Sub

ステータスバー

22:43

メッセージを表示します。
　　　↓
Sub Test()
Application.StatusBar = "こんにちは hinekure です。^^"
End Sub


標準の表示に戻すには
　　　↓
Sub Test2()
Application.StatusBar = False
End Sub

しかし、、、あまり目立ちません。。。

フォルダの削除(FileSystemObject)

09:57

フォルダ内のサブフォルダ・ファイルも一度に削除します。

Bookを一度保存して下さい。

Sub Test()
Dim objFSO As Object
Dim myFolder As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
myFolder = ThisWorkbook.Path & "¥hoge"
objFSO.DeleteFolder myFolder
Set objFSO = Nothing
End Sub

削除するフォルダの場所は変更して下さい。
　　　↓
myFolder = ThisWorkbook.Path & "¥hoge"

なぜ？？？Bookを開かずに操作したいの？？？

10:40

分かりません。。。理解出来ません。。。
考えるだけでも面倒だと思うのですが、、、
タスクバーに表示されるのが嫌なのかな？？？
表示されるのは一瞬だと思うのですが。。。

Application.ScreenUpdating = False
　　　・
　　　・
　　　・
Application.ScreenUpdating = True

これじゃ駄目なのかな。。。
う〜ん、分からない。。。