수다닷컴

안녕하세요.
텍스트 박스에 텍스트를 추가한후 리스트뷰에 입력되게 한뒤, 엑셀로 전송시키는 프로그램을 제작중입니다.
엑셀로 전송을 시켜서 따로 저장을 하는 부분으로 사용해도 되지만, 프로그램 내에서 파일로 저장하고 싶어 문의드립니다.
Option ExplicitPrivate ischanged As BooleanPrivate stropenfilename As StringDim a As IntegerDim b As IntegerPrivate Declare Function SendMessageByNum Lib user32 _ Alias SendMessageA (ByVal hwnd As Long, ByVal _ wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const LB_SETHORIZONTALEXTENT = &H194=============================================================Private Sub savexlsxtfile()Dim intfile As Integerintfile = FreeFileDim Temp As StringDim i As IntegerOpen stropenfilename For Output As #intfile For i = 0 To ListView1.ListItems.Count - 1 Temp = Temp & ListView1.ListItems(i) & vbCrLf Next iPrint #intfile, TempClose #intfileMsgBox 저장완료, vbInformation, Me.CaptionEnd Sub=============================================================Private Sub Command3_Click()Dim strfile As Stringc.CancelError = TrueOn Error GoTo errhandlerc.FileName = c.Filter = Excel 통합 문서|*.xlsx|모든 파일(*.*)|*.*c.ShowSavestrfile = Trim(c.FileName)If strfile = Then Exit Substropenfilename = strfilesavexlsxtfileischanged = Falseerrhandler:Exit SubEnd Sub========================================================dialog를 이용해서 text 파일 저장을 응용해본 부분인데요.
저장이나 해당 파일형식이나 완벽하게 저장은됩니다.
그러나, 열기를 누르게되면 파일 형식, 확장자 , 파일오류 막 이런 메세지가 한줄로 뜨게되는데
어떤 문제점이 있는건지요..

신청하기