MS 액세스 03-정규화하는 Excel 스프레드시트에서 데이터

StackOverflow https://stackoverflow.com/questions/1159697

문제

나는 질문에 대한 방법을 따로따로.이것을 얻을 Excel 스프레드시트는 나에게 제공하는 데이터는 나는 필요하지 하나의 보고서입니다.그것의 아주 간단하고 바로 앞으로,그러나 거기에 하나의 그것의 특정 부분을 주고 있는 나에게 어떤 슬픔을 할 수 있습니다.

Excel 스프레드시트에 있는 열을 나열하는"당사자"중 하나에서 열입니다.그것은 일반적으로는 사람이 12 명의 이름을 쉼표로 구분이지만,또한 orgID 괄호 안에 그것의 뒤에:

조 스미스(DIV32),john doe(DIV12),roger andrews(DIV14,DIV67,DIV01),etc.

고 휴식으로 이러한 개인 열할 수 있도록 개별적인 필드를 한 번 가져올로 그들을 액세스합니다.내가하는 방법을 알고"텍스트를 열"엑셀에서만 이 나사로 때 jon doe (DIV13,DIV54,등등)이상의 한 부분을 돌아가게 합니다.

지 이를 수행하는 방법에 액세스하지만 알고 싶어요.

사람이 가지고 하나 excel 식,또는 액세스 방법에 대한 이하십시오?

도움이 되었습니까?

해결책

나는 가정 당신을 가져오는 이것의 데이터베이스입니다.하지 않을 경우,그것은 아마도 쉽게 당신이 할 경우,경우에도 임시;그리고 다시 모든 시간을 실행하여 보고서

당신은 끝나는 세 가지 테이블을 나타내는 상황

  1. theParty(사람)
  2. theOrganisation
  3. thePartyOrg

theParty 와 있는 열 ID

theOrganisation 있을 것이다 그것의 자신의 ID 열

thePartyOrder 있을 것이다 그것의 자신의 ID 열을 위해 하나 theParty 및 theOrganisation

하고 싶을 때 나타내는 파티으로 가져올의 구성원과 조직,당신이 있는지 확인해야자가 존재하/이 만들어집니다.조직은 조직이 존재하/을 만들고 암탉을 만들 입장에서 thePartyOrg 는 테이블 포인트에서 모두.

이 때문에 연결 정보를 단지 저장된 텍스트로 내에서의 단 열의,그것은 아마도 가장 쉽게 처음 그것을 모두 읽으로 테이블 준비 및 다음 분석을 열 VBA

다른 팁

여기에는 솔루션:

내가 작성하는 함수를 대체하는 모든 항목의 문자열인'strfind 를 통해 strReplace 는 경우에만,그러나인'strfind 를 발생합니다 내에 괄호 안에 표시됩니다.할 수 있도록 대체하는 모든","문자에 의해 다른 것(예:"*"),그런 다음 엑셀 실행의 텍스트를 열고"*"'s","again.

Function replace_paren(strSource As String, strFind As String, strReplace As String) As String
    ' Within strString, replaces any occurrence of strFind with strReplace *IF* strFind occurs within parentheses '

    Dim intOpenParenIndex As Integer
    Dim intCloseParenIndex As Integer

    Do
        intOpenParenIndex = InStr(intCloseParenIndex + 1, strSource, "(")
        intCloseParenIndex = InStr(intOpenParenIndex + 1, strSource, ")")
        If intOpenParenIndex = 0 Then
            Exit Do
        End If

        Mid(strSource, intOpenParenIndex, intCloseParenIndex - intOpenParenIndex) = Replace(Mid(strSource, intOpenParenIndex, intCloseParenIndex - intOpenParenIndex), strFind, strReplace)
    Loop

    replace_paren = strSource

End Function

그래서 단계는 다음과 같습니다:

1)이 매크로로에서 모듈 Excel 통합 문서

2)당신의 문자열에서 열 A.에서 열 B,설정 기능 대체하는 쉼표 같은이

=replace_paren(A1,",","*")

3)을 채울 수식 열

4)복사 및 붙여넣기는 열의 값으로

5)사용 Excel 의 텍스트를 열를 분석해 열을 사용하여","으로 구분

6)사용 replace_paren 다시 대체하는 모든 항목에"*"의","

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top