1

別のアプリケーションに入力するために、コードを使用してデータを Excel から .txt にコピーし、不要な文字を削除していました。

Public DirRoot As String
Public CasNam As String

Public Sub Export()

    Dim intUnit As Integer
    Dim rngRow As Range
    Dim rngCell As Range
    Dim strText As String

    intUnit = FreeFile

    DirRoot = "C:\temp\"
    CasNam = "Test"

        Open DirRoot & CasNam & ".txt" For Output As intUnit

    'End If

    With Worksheets("Export").UsedRange
        For Each rngRow In .Rows
            strText = ""
            For Each rngCell In rngRow.Cells
                If Len(rngCell.Value) = 0 Then Exit For
                strText = strText & " " & rngCell.Value
            Next
            Print #intUnit, Trim(strText)
        Next
    End With

    Close intUnit

End Sub

ここで、列の 1 つが format: の日付である別のデータ セットの下で使用する必要がありますyyyymmdd。上記のコードを適用すると、その列が format で取得されますdd/mm/yyyy。

元の日付形式を Excel から に保存する方法はあります.txtか?

あなたの助けは大歓迎です!

4

3 に答える 3

0

この行を変更します

      strText = strText & " " & rngCell.Value

に

      strText = strText & " " &  Format(rngCell.Value,"yyyymmdd")

幸運を

編集

これを確認してください。colCounterフォーマットが再クエリされた列を識別することです。

Dim colCounter as Integer
colCounter = 1
With Worksheets("Export").UsedRange
   For Each rngRow In .Rows
      strText = ""
      colCounter = 1
      For Each rngCell In rngRow.Cells
        If Len(rngCell.Value) = 0 Then Exit For
        If colCounter = 2  Then ' change 2 to whatever column you want to format
           strText = strText & " " &  Format(rngCell.Value,"yyyymmdd")
        Else
           strText = strText & " " & rngCell.Value
        End if
        colCounter = colCounter + 1
      Next
      Print #intUnit, Trim(strText)
   Next
End With
于 2013-01-22T14:55:11.510 に答える
0

これはあなたがしようとしていることですか？

'~~> Change this to the column which has dates
Col = 2

For Each rngCell In rngRow.Cells
    If Len(rngCell.Value) = 0 Then Exit For

    If rngCell.Column = Col Then
        strText = strText & " " & Format(rngCell.Value, "yyyymmdd")
    Else
        strText = strText & " " & rngCell.Value
    End If
Next
于 2013-01-22T15:04:56.147 に答える
0

どの部分が日付で変数を宣言しているかはよくわかりませんが、次の説明が役立つ場合があります。

Sub Date_Convert 

dim dtDate_Orig as date
dim dtDate_Convert as date
dim sDate as String


dtDate_Orig = "22/01/2012"
dtDate_Convert = format(dtDate_Orig, "yyyymmdd")
sDate = Cstr(dtDate_Convert)

'Now you can use the string for a filename 

End Sub
于 2013-01-22T15:03:22.117 に答える