貼り付け、私は細胞からのコピーは、私はresulteは二重引用符である新しいファイルを作成し、それが持っているので、それは、受け入れられないです（.SQL）</p> <p>毎回ファイルをテストするためのスクリプトを書いて

Question

SQLスクリプトであり、引用符ではうまくいきません。

Private Sub CommandButton1_Click() 

Dim wb As Workbook 
Dim saveFile As String 
Dim WorkRng As Range 

Sheets("TU").Columns(10).Copy 

Sheets("TU").Columns(11).PasteSpecial xlPasteValues 

On Error Resume Next 

Set WorkRng = Range("K3:K20") 

Set wb = Application.Workbooks.Add 
WorkRng.Copy 
wb.Worksheets(1).Paste 
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.sql), *.sql") 

wb.SaveAs Filename:=saveFile, FileFormat:=xlTextWindows, CreateBackup:=False 
wb.Close 

End Sub 

Answer 1

これをチェックしてください。これは一重引用符では表示されません。各セルの元の値には一重引用符が含まれていますか？

その場合は、あなたは、細胞上のループを試すことができますし、値を貼り付けた後の列に、各引用符を置き換えるK.

Private Sub CommandButton1_Click() 

Dim wb As Workbook 
Dim saveFile As String 
Dim WorkRng As Range 
Dim cell As Range, rng As Range 
Set rng = Range("K:K") 

Sheets("TU").Columns(10).Copy 

Sheets("TU").Columns(11).PasteSpecial xlPasteValues 

For Each cell In rng 

    If cell.Value = "" Then 
    Exit For 
    End If 

    If InStr(1, cell.Value, "'") > 0 Then 
     cell.Value = Replace(cell.Value, "'", "") 
    End If 
Next cell 


On Error Resume Next 

Set WorkRng = Range("K3:K20") 

Set wb = Application.Workbooks.Add 
WorkRng.Copy 
wb.Worksheets(1).Paste 
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.sql), *.sql") 

wb.SaveAs Filename:=saveFile, FileFormat:=xlTextWindows, CreateBackup:=False 
wb.Close 

End Sub