업무용 Delphi 프로그램 데이터 특정부위 엑셀로 내보내기 ( 수작업 클릭 3번 )
(소프트웨어 업체 db 는 비밀번호가 걸려있어서 접근이 ㅠ.ㅠ)
내가 만든 엑셀에서 중간 데이터 엑셀파일 불러오기 ( 클릭 1회 수작업 )
-- 이하 전자동 --
엑셀에서 VBA 로 데이터 재가공
VBA로 특정 시트 전체를 텍스트 파일 및 이미지로 내보내기
Dim rngOut As Range
Dim lngFirstRow As Long, lngLastRow As Long
Dim intFirstCol As Integer, intLastCol As Integer
Dim r As Long
Dim c As Integer
Dim varData As Variant
On Error GoTo ET
Set rngOut = ActiveSheet.Range("a3").CurrentRegion
'Set rngOut = Columns("A:J")
rngOut.Replace what:=Chr(10), replacement:=""
lngFirstRow = rngOut.Rows(1).Row
lngLastRow = lngFirstRow + rngOut.Rows.Count - 1
intFirstCol = rngOut.Columns(1).Column
intLastCol = 10
'intLastCol = intFirstCol + rngOut.Columns.Count - 1
Open "E:sharedHanaMChanamc.txt" For Output As #1
For r = lngFirstRow To lngLastRow
For c = intFirstCol To intLastCol
varData = Cells(r, c).Value
If IsNumeric(varData) Then varData = Val(varData)
If c <> intLastCol Then
Print #1, varData;
Else
Print #1, varData
End If
Next c
Next r
Close #1
ET:
(10번째 열(A에서 J) 까지만 자동으로 텍스트 파일로 내보내기)
폴더 씽크 어플이 SMB 서버 이용 폰에 자동 동기화
태스커로 폴더/파일 모니터링
태스커로 스크립트 실행
( 스크립트가 텍스트 피싱 / sqlite3 db 업데이트 / SUM, AVERAGE 등 보고서 생성 )
기능적인 문제는 해결됐네요 ㅋ
이젠 클릭 몇번으로 폰에 동기화하고 언제 어디서든 폰에서 원하는 데이터를 뽑아볼 수 있습니다. :)
