Private Sub Workbook_Open() Application.EnableEvents = False ‘Add Items to ComboBox1 in Sheet1 while opening workbook With Sheet1.ComboBox1 .Clear .AddItem “Fruits” .AddItem “Vegetables” .AddItem “Soaps” .AddItem “Beverages” End With Application.EnableEvents = True End Sub
SpecialFolders Property Returns a SpecialFolders object (a collection of special folders). Syntax object.SpecialFolders(objWshSpecialFolders) Arguments object WshShell object. objWshSpecialFolders The name of the special folder. Remarks The WshSpecialFolders object is a collection. It contains the entire set of Windows special folders, such as the Desktop folder, the Start Menu folder, and…
– 함수 설명 Left$( 문자열, 길이 ) : 문자열의 좌측으로부터 해당 길이만큼 문자열을 뽑아옵니다. * 참고: LeftB$( 문자열, 바이트 수 ): 바이트 단위로 뽑아옵니다. ex) MsgBox Left$(“Hello World!”, 7) ‘ Hello W Mid$( 문자열, 시작 위치 [, 길이] ) : 문자열의 중간부분부터 해당 길이만큼 문자열을 뽑아옵니다. – ‘길이’를 생략하면…
Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets WS.SaveAs SaveToDirectory & WS.Name, xlCSV Next Application.DisplayAlerts = False ThisWorkbook.SaveAs…
write.php <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>CSV 파일 올리기</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <style type="text/css"> body, td, a { font-size:12px; font-family:"돋움"; } img { border:0; } .hp_div { width:900px; padding:0 0 0 200px; } .hp_div1 { font-family:"돋움"; font-size:11px; float:left; width:150px; height:20px; padding:5px 0 0 0; text-align:center;…