Skip to content

Instantly share code, notes, and snippets.

View dck-jp's full-sized avatar

D*isuke dck-jp

2 followers · 6 following
View GitHub Profile
@dck-jp
dck-jp / Class1.cls
Created August 7, 2012 10:26
a problem of "Dim As New" @ VBA
Public data As String
@dck-jp
dck-jp / SaveAndRename.bas
Created August 10, 2012 02:31
Save with adding current date to file name @ VBA (WORD only)
''' OutputFileName : hogehoge(*date*-*time**initial*).doc
''' eg. hogehoge(20120101-1200dck).doc
Sub SaveAndRename()
Dim fileNameBody As String ' hogehoge in above example
Dim newFileName As String
Dim saveDate As String : saveDate = Format(Date, "yymmdd")
Dim saveTime As String : saveTime = Format(Time, "hhmm")
Dim initial As String : initial = "dck"
Dim re, mc, m
@dck-jp
dck-jp / ModuleShutdown.bas
Created August 10, 2012 02:34
Shutdown Windows @ VBA
Option Explicit
Private Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege"
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ALL_ACCESS = &HF00FF
Private Type LUID
LowPart As Long
HighPart As Long
End Type
@dck-jp
dck-jp / GetMacAddress.bas
Created August 10, 2012 02:42
Get MAC Address @ VBA
Public Function GetMacAddress()
Dim objNetwork As Object
Dim strNetworkSql As String
Dim strMacAdr As String
strNetworkSql = "SELECT * FROM Win32_NetworkAdapter WHERE MACAddress IS NOT NULL"
For Each objNetwork In GetObject("winmgmts:").ExecQuery(strNetworkSql)
strMacAdr = objNetwork.MACAddress
If strMacAdr <> "" Then Exit For
Next
@dck-jp
dck-jp / ModuleToolbar.bas
Created August 15, 2012 12:44
Make AddIn with Toolbar @ VBA (Excel Only)
Attribute VB_Name = "ModuleToolbar"
Option Explicit
Const toolbarName = "SampleToolbar"
Sub MakeToolBar()
Dim myBar As CommandBar
Dim myButton1 As CommandBarControl
Set myBar = Application.CommandBars.Add( _
@dck-jp
dck-jp / MakeToolbar.bas
Created August 19, 2012 00:29
Application.CommandBars.Add Test
Attribute VB_Name = "ModuleToolbar"
Option Explicit
Const toolbarName = "Sample"
Sub MakeToolBar()
Dim myBar As CommandBar
Set myBar = Application.CommandBars.Add( _
Name:=toolbarName, Position:=msoBarFloating)
myBar.Visible = True
@dck-jp
dck-jp / HelloTetris.html
Created August 19, 2012 06:54
HTML5 Tetris@Office app
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<title>HTML5 Tetris</title>
<meta charset="UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<link rel='stylesheet' href='style.css' />
</head>
<body>
<canvas width='300' height='600'></canvas>
@dck-jp
dck-jp / taskExists.bas
Created August 21, 2012 12:14
Yet another Task.Exists() @ VBA
' Yet another Task.Exists()
' Task.Exists() Method does not always work well.
' processName : executeFileName eg. "notepad.exe"
Function TaskExists(processName As String)
Dim Locator : Set Locator = CreateObject("WbemScripting.SWbemLocator")
Dim Server : Set Server = Locator.ConnectServer
Dim objSet : Set objSet = Server.ExecQuery("Select * From Win32_Process")
Dim obj
For Each obj In objSet
@dck-jp
dck-jp / VAMIE2.cls
Created August 22, 2012 03:39
VAMIE2 (VBA Auto Mation for Internet Explorer) @ VBA
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "VAMIE2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
@dck-jp
dck-jp / sample1.bas
Created August 23, 2012 12:29
ResetAllCommandBars @ VBA
Sub ResetAllCommandBars()
Dim objCommandBar As Office.CommandBar
For Each objCommandBar In Application.CommandBars
If objCommandBar.BuiltIn Then
objCommandBar.Reset
End If
Next
End Sub