반응형 Excel3 [ASP] 엑셀 업로드 코드 작성시 TIP! [ASP] 엑셀 업로드 시 TIP 1. 파일명에 " . " 안들어가게 하기 sCnt = UBound(Split(FileName, ".")) If scnt > 1 then Err_msg = "파일명에 "".""이 있습니다. 파일명을 변경하시고 다시 업로드해주시기 바랍니다." Response.Write "" End if : 파일 업로드 시 간혹 파일명에 . 이 들어가서 확장자를 걸러낼 때 오류가 생기는 경우가 있어서 확장자 포함 파일명 자체에 " . "이 두개 이상이라면 등록이 되지 않게 막아버렸습니다. 2. xlsx 일 경우 Sheet가 여러개일 때, 첫번째 시트명 올바르게 가져오는 방법 : 엑셀 안에 빈시트가 있는 경우가 있는데, 데이터가 있는 Sheet가 맨 앞에 위치하여 있다고 해도, 정상적으로 인식.. 2019. 4. 4. PowerBuilder DataWindow HTML로 변환 후 엑셀 저장 PowerBuilder DataWindow HTML로 변환 후 엑셀 저장 /****************************************************************************************************************************************************/ 엉뚱섭군 님의 글을 참조하여 조금 더 보강하였습니다. 기존 코드를 사용했을 때에는 Tmp Folder 가 삭제되지 않는 현상이 있어 해당 부분 조치하였습니다. 추가한 부분들은 파란색으로 별도 표기하였습니다. 무엇보다, 폴더를 삭제할 때에는 폴더 내에 아무런 파일이 없을 때 삭제가 되지 않아 엑셀 생성시 자동으로 생성되는 파일들의 리스트들을 적어서 삭제할 수 있도록 하.. 2019. 1. 9. [VB] VB에서 엑셀파일 쓰기(윤곽선, 정렬, 폰트, 사이즈) [VB] VB에서 엑셀파일 쓰기 '업무에서 데이터와 스프레드에 입력된 데이터들을 엑셀파일로 옮기는 작업의 일부를 '긁어왔습니다. 도움이 되었으면 좋겠습니다. '코드 중간중간에 기능에 대한 설명을 주석으로 남겨놓았습니다. '궁금한 사항이 있으시면 댓글로 남겨주세요. Private Sub mMakeExcel() Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Dim pType As String Dim pTxt As String Dim pTmpDt(10) As String Dim pCnt As Integer Dim N As Integer Dim M As Integer Dim pLen As Integer '새로운 Excel 객체 생성 Set oExc.. 2018. 12. 17. 이전 1 다음 반응형