API 썸네일형 리스트형 인터넷에서 파일 다운받기 오늘은 엑셀을 사용하여 인터넷에서 파일을 다운받는 것에 대해 알아보겠습니다. 왜 굳이 엑셀을 이용하여 인터넷파일을 다운받아야 하는가 의문이 들수도 있겠지만 살다보면 필요할 날이 올겁니다. ^^ 이것도 역시 윈도우 API를 이용한 것입니다. API를 이용하는 것은 그냥 닥치고 붙여넣기 입니다. API를 제대로 활용한다는 것은 워낙 넓고 깊은 세계라 필요한 부분만 활용하는 것이 최선인것 같습니다. 원문 : http://www.cpearson.com/Excel/DownloadFile.aspx 오늘 자료도 역시 cpearson.com에서 가져왔습니다. 개인적으로 정말 훌륭한 프로그래머라고 생각되네요. 어떤 프로그램이든 매우 깔끔하고 명확합니다. 일단 기본명령어 구문입니다. Public Function Downl.. 더보기 엑셀에서 소리내기 안녕하세요. 오랫만의 포스팅입니다. 개인적인 사정으로 오랫동안 포스팅을 못했는데 앞으로도 잘 할수 있을지 미지수입니다.... 원문 : http://www.cpearson.com/Excel/PlaySound.aspx 오늘은 엑셀에서 소리를 내는 것입니다. 엑셀에서는 소리를 내기위한 명령어로서 beep명령이 있습니다. 그런데 이것만으로는 좀 단순하고 다양한 소리를 낼 수 없을까요? API를 이용하면 가능합니다. 우선 선언을 먼저 해줍니다. Public Declare Function sndPlaySound32 _ Lib "winmm.dll" _ Alias "sndPlaySoundA" ( _ ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long 그리고 .. 더보기 현재 워크북 휴지통으로 집어넣기 지난번 했던 열려있는 워크북 지우기 관련하여 API 부분과 연동해서 소스를 고쳤습니다 Sub KillActiveWorkbook2() '//활성화된 파일 삭제하기 Dim strFile As String Dim intResult As Integer On Error GoTo kkk strFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name intResult = MsgBox(ActiveWorkbook.Name & " 항목을 휴지통에 버리시겠습니까?", vbYesNo, "파일 삭제 확인") If intResult = vbNo Then Exit Sub ActiveWorkbook.Close savechanges:=False Recycle (strFile) '파일을 휴지통으.. 더보기 파일을 휴지통에 넣기(API이용) 파일을 직접 윈도우명령을 이용하여 휴지통에 넣는 방법입니다. 원문은 http://www.cpearson.com 에 있습니다. 링크는 http://www.cpearson.com/excel/recycle.aspx 이니 참조하시기 바랍니다. 전에도 말씀드렸다시피 VB에서는 Kill이라는 명령어를 제공합니다. 이것은 파일을 그대로 지워버립니다. 문제는 휴지통에 보내면서 지우는게 아니라 그냥 지웁니다. 쉬운 방법으로는 지운후 복구할 수 없습니다. 그러나 윈도우 API를 이용하면 파일을 휴지통으로 보낼수 있습니다. 이 명령어와 관련하여 세가지 프로시져를 제공하고 있습니다. 1. 파일을 휴지통으로 보내기(Recycle) 2. 파일을 중요한 파일인지 검사하고 안전하게 휴지통으로 보내기(RecycleSafe) 3. 휴지.. 더보기 이전 1 다음