| |
▼TARO さん：
こんにちは。
>エクセルのセル設定は、改行で全体表示です。
「折り返して全体を表示する」で宜しいでしょうか。
>出力する文字数(改行含む)が多いと、
>エクセルでは、#####と表示されてしまいます。
##### となるのは数値型のものですよね。
文字列ですと大丈夫な模様です。
Sub 折り返してセルを表示のテスト()
Dim xlsApp As Object
Dim xlsWkb As Object
Dim xlsPath As String
xlsPath = CurrentProject.Path & "\折り返しテスト.xls"
On Error Resume Next
Kill xlsPath
On Error GoTo 0
Set xlsApp = CreateObject("Excel.Application")
Set xlsWkb = xlsApp.Workbooks.Add
With xlsWkb.Sheets("Sheet1")
.Columns("A:A").ColumnWidth = 4
.Range("A1:A3").WrapText = True
.Range("A1").Value = "AAAAAAAAAAAAAAAAAAAA"
.Range("A2").Value = "99999999"
.Range("A3").Value = "'99999999"
End With
xlsWkb.SaveAs xlsPath
xlsWkb.Close: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
End Sub
上記コードを実行すると、Accessと同じフォルダに
「折り返しテスト.xls」ができ、確認できると思われます。
>デザインされたシート
という事ですが、改行される事によってデザインが崩れる事は
大丈夫なのでしょうか。
|
|
小僧
- 08/3/1(土) 13:21 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
