Results of 1 - 1 of about 295 for cell filename (0.001 sec.)
cell (1170), filename (1984)
- [[20221025160504]]
- #score: 11157
- @digest: 61c751ae91f11c6093528bc966ab124c
- @id: 92624
- @mdate: 2022-10-25T10:52:24Z
- @size: 1984
- @type: text/plain
- #keywords: outputfile (16246), 問cs (7748), アro (7005), 不気 (5466), 除my (5365), ブ文 (5156), 目削 (4869), 合的 (3082), minoru (2845), 本サ (2545), 付") (2396), 列扱 (1946), 気味 (1920), mypath (1837), vbtab (1737), createbackup (1417), empty (1368), 出力 (1341), ブラ (1204), 整合 (1146), ラン (982), savechanges (971), 受付 (927), fileformat (921), displayalerts (868), csv (834), 様早 (833), activeworkbook (713), value (642), （mi (553), ンク (494), thisworkbook (426)
- 『CSV出力のブランクについて』（minoru）
お世話になります csvシートの値をcsv出力するため, 本サイトより検索した下記のコードを使用しており、見た目はきれいにcsv出力されます。 質問 csvシート上ではブランクのセルが、csv出力するとブランクではなくなります。 ブランクの状態でcsv出力するにはどこを修正すればよろしいでしょうか? csvシートでは =cell("type",a1) 戻り値が b ですが 出力したcsvファイルは l になります。 または、違うコードでも結構ですので、よろしくお願いします。 Sub Sample() Application.ScreenUpdating = False Dim outputFile As String Dim myPath As String Dim c As Range Dim i As Long i = Worksheets("csv").Cells(Rows.Count, 1).End(xlUp).Row outputFile = Worksheets("受付").Range("i8") myPath = ThisWorkbook.Path Sheets("csv").Copy Columns("T:XFD").ClearContents 'クリア Rows("1:1").Delete Shift:=xlUp '1行目削除 myPath = ThisWorkbook.Path For Each c In Range("A1:S1") If c.Value = Empty Then c.Value = vbTab & c.Value Next Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=myPath & outputFile _ , FileFormat:=xlCSV, CreateBackup:=False ActiveWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub ＜ 使用 Excel:Office365、使用 OS:Windows10 ＞ ---- If c.Value = Empty Then c.Value = vbTab & c.Value としているから、ですね。 タブ文字が文字列扱い（正常）されているのだから、整合的です。 つまり、やったように結果が出ているだけですが? （γ） 2022/10/25(火) 16:33:20 ---- γ 様 早速のご返答ありがとうございます If c.Value = Empty Then c.Value = vbTab & c.Value ↓ If c.Value = Empty Then c.Value = c.Value これに修正して無事に取り込むことができました、ありがとうございました。 （minoru） 2022/10/25(火) 18:25:32 ---- ＞If c.Value = Empty Then c.Value = c.Value これって意味あるの。 （不気味） 2022/10/25(火) 19:51:07... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221025160504.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608269 words.
訪問者：